Permutations by notogawa

main=mapM putStrLn$f"012345"
f[x]=[[x]]
f s=[z:' ':t|z<-s,t<-f[a|a<-s,a/=z]]

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

download

return top