Ghost leg solver by rst76

main=interact(\x->x++'\n':foldl1(!)(lines x))
(a:b:c:d)!(_:'-':e)=c:b:(a:d)!e
(a:b)!(_:e)=a:b!e
a!_=a

Note that non-ascii characters in the above source code will be escaped (such as \x9f).

download

return to the top page