Permutations by llhuii

END{for(;F=6^6>k=i++;$0=E){for(j=7;--j;k/=6)F*=$0!~($j=int(k%6));if(F)print}}

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

download

return top