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