You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

10 lines
237 B

#!../k
\l l.k
f:**|I[.*0:"i/19"]@
+/f'+!2#50
(i;j):(2#n)\*1_&f'+!2#n:10
t:{x+:1;(x;(~f x,)(1+)/y;(f x,)(1+)/z|1+y)}.
(p;h):{(p;h):x;q:100!1+p;$[99<h[q;2]-h[p;1];x;(q;@[h;q;:;t h p])]}/(99;(99 3#0),,i,j+!2)
q:100!1+p
h[p;1]+10000*h[q;0]