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