Permutations by xdigit

import List
g[]=""
g(x:y)=intersperse ' 'x++"\n"++g y
a="012345"
main=putStr$g[z|p<-a,q<-a,r<-a,s<-a,t<-a,u<-a,let z=[p,q,r,s,t,u],a==sort z]

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

download

return to the top page