path: root/day25.k

p:" "\'0:"day25"
v:{(r,"i"$,x)"abcd"?*x}
e:{t:"abcd"?*|c:p[i]; i+:1; s:~[**c;]
 $[s"o";`0:$v@c@1; 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}

a:(2/12#1 0)-7*365	/ 175
r:a,0 0 0;i:0;*1000000 e/1