path: root/day12.k

p:" "\'0:"day12"
v:{(r,"i"$,x)"abcd"?*x}
e:{t:"abcd"?*|c:p[i]; i+:1; s:~[**c;]
 $[s"c";r[t]:v@c@1; s"i";r[t]+:1; s"d";r[t]-:1; s"j";i+:(-1+v@*|c)*~0=v@c@1];r}

r:4#0;i:0;*{i<#p}e/1		/ 318077
r:0 0 1 0;i:0;*{i<#p}e/1	/ 9227731