Difference of by NearO

r[]=[]
r x=x++10:r(zipWith(\a b->48+abs(a-b))x$tail x)
main=interact$map toEnum.r.map fromEnum.init

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

download

return to the top page