Four Number Game by henkma

main=interact$(>>=(1%).map read.words).lines
0%_="\n"
_%x=unwords(map show x)++'\n':sum x%map abs(zipWith(-)x$tail x++x)

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

download

return to the top page