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 to the top page