Permutations by Defenestrator

p[a]=[[a]]
p a=[b:' ':c|b<-a,c<-p[i|i<-a,i/=b]]
main=mapM putStrLn$p"012345"

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

download

return top