Permutations by yshl

/f{dup{/b exch def b[2 index{dup b eq{pop}if}forall]f def}forall count 13 eq{11
-2 3{index =only( )print}for 1 index =}if}def[0 1 5{}for]f

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

download

return to the top page