blob: a634e17051bbe3d1ca9ff51645e7e25174a5ba44 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
|
d:*0:`day14 / d:"flqrgnkx"
/ from day10.k
r:{y@(#y)!x+!#y}
S:256
k:{(r[-m](|y#R),y_R:r[m:S!x 1]@*x;+/y,x 1 2;1+x 2)}
h:{,/+S\(2/2!+/+2\)'16 0N#*64 k/[;0+x,17 31 73 47 23]/(!S;0;0)}
/ adapted from ok/examples/islands.k by John Earnest
+/+/a:+0,'+(0,,/+2\h@d,"-",)'$!128 / 8226
-1+#?,/{a*|/(,x),((-1 1)r'\:x),(-1 1)r\:x}/a*s#1+!*/s:2##a / 1128
|