Permutations by murky-satyr

proc f l\ r {foreach n $l {f [regsub $n $l ""] $r\ $n}
if ![llength $l] {puts [regsub _. $r ""]}}
f {0 1 2 3 4 5} _

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

download

return top