path: root/day25.k

/ d:`a`b`c`d`e`f!((1,1,`b;0,1,`c);(0,-1,`a;0,1,`d);(1,1,`d;1,1,`a);(1,-1,`e;0,-1,`d);(1,1,`f;1,-1,`b);(1,1,`a;1,1,`e))

d:`a`b`c`d`e`f!0N 2#+(1 0 0 0 1 1 1 0 1 1 1 1;1 1 -1 1 1 1 -1 -1 1 -1 1 1;`b`c`a`d`d`a`e`d`f`b`a`e)
v:20000#0;12399302{v[*x]::*s:d[*|x]v@*x;(s[1]+*x;s[2])}/10000,`a;+/v
\\