2to:1+((C:=Set evaluate:'#(',stdin upToEnd,')')at:1)do:[:y|1to:(X:=C at:2)do:[:x|Z:=$ .x=X or:[Z:=$ ].stdout<<(x+y\\2)<<Z]]
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page