Jump Letters by henkma

m@main=getLine>>=putStrLn.(0%)>>m
n%l=l!!n:do x<-[0..50];[1|l!!x==l!!n,x/=n];(x+1)%l

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

download

return to the top page