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.
 
 
 
 
 
 

11 lines
357 B

#!../k
\l l.k
a:"#"=0:"i/24"
t:&*/25#2
g:{(+/'3'0,x,0)-x}
f:{(1=c)|x<2=c:g[x]+g'x}
(1<#:){k:2/,/x;$[t k;:2/|,/x;];t[k]:1;f x}/a
h:(@[;12;:;!0]@^[;12]'&'1=+/abs i-\:'i:!5 5){@[x;y;,;25 -25+|y]}/((17;!5);(7;20+!5);(11;4+5*!5);(13;5*!5))
+/*200{(a;h):x;$[|/25#a;a:(&25),a;];$[|/-25#a;a,:&25;];h:((#a)>#:){x,(#x)+25#x}/h;a:(1=c)|a<2=c:+/'0^a h;(a;h)}/(,/a;h)