checkers pattern by murky-satyr

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