Permutations by nn

function p(a,n,i){if(n>5)print a
else for(i=-1;i++<5;)index(a,i)||p(n?a" "i:i,n+1)}END{p()}

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

download

return top