(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 to the top page