path: root/day20.k

1_{($[*x>*|y;*x;1+*|y];$[(*x)<*y;x[1]&-1+*y;x[1]];x[2]+0|(*y)-*x)}/[0 0w 0;y@<y:"f"$'"-"\'0:"day20"]	/ 4793564 146