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 \\