day07.k


1
2
3
4
5
6
7
8
9
10

d:0:`day07
r:({x@&&\~x=" "}'d)!{","\((">"\x)[1]^" ")}'d  / right hand sides
w:(!r)!{"i"$x@&(x>47)&x<58}'d                 / weights

*(!r)^,/. r                                   / fbgguv

W:{+/w[x],,/o'r@x}                            / recursive weight
w[j]-f-*c^f:W@j:r[i;**{1=#x}#.=c:W'r@i:b@*<W'b:&{$[#x;~1=#?W'x;0]}'r]   / 1864

\\