path: root/day22.k

d:{.:@[x;&(x<"0")|x>"9";:;" "]}'2_0:"day22"
+/{(~x[3]>x[10])&(~x[0 1]~x[6 7])&0<x[3]}',/d,/:\:d	/ 985

ms:&/d[;2]
mx:|/{(*x)*0=x[1]}'d
`0:"\n"/+(32 32#" "){.[x;2#y;$[(2#y)~mx,0;"G";y[3]>ms;"#";~y[3];"_";"."]]}/d;
/ 179 manually