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.
 
 
 
 
 
 

6 lines
183 B

#!../k
\l l.k
a:.'","\*0:"i/07"
p:+prm 5
|/*+0{*|I[a]y,x}/'p
|/{*|*|*|*|({~E z x}.)({z[x;3],:y;z[x;4]:!0;z[x]:{~(#x 4)|E x}T/z x;(5!x+1;*|*|z x;z)}.)/0 0,,@[(0;a;0;:;!0);3;:;]'x}'p+5