Permutations by murky-satyr

(P:=[:a :r|a size=0and:[(r fold:[:a :b|stdout<<a<<$ .b])printNl];or:[a do:[:i|P value:(a reject:[:x|x=i])value: r,{i}]]])value:(0to:5)value:{}!

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

download

return top