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.
 
 
 
 
 
 

9 lines
257 B

#!../k
\l l.k
a:.*0:"i/11"
b:10000
g:{[p;d;m;h]m[3]:,0^h@b/p;m:{$[1<#*|x;0;~E x]}T/m;$[E m;:h;];v:m 4;h[b/p]:*v;p+:D d:4!d+1 3 v 1;m[4]:!0;(p;d;m;h)}.
f:{(`A=@:)g/(c;0;(0;a;0;!0;!0);(,b/c:2#-2!b)!,x)}
# !f 0
n:1+|/'i-:&/'i:b\!h:f 1
|+|" #"n#@[&*/n;n/i;:;h]