Swap The Characters by int-e

m@main=getLine>>=putStrLn.foldl1(?).words>>m;a?b=[(a>>d:filter(/=d)b)!!3|d<-a]

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

download

return to the top page