Permutations by yt

x("012345","",5)
sub x(a$,b$,p)local i
if!p?b$+a$
for i=0to p x(left$(a$,i)+mid$(a$,i+2),b$+mid$(a$,i+1,1)+" ",p-1)next
end sub

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

download

return top