checkers pattern by murky-satyr

Y:=(stdin upTo:$ )asNumber.
X:=stdin nextLine asNumber.
0to:-1+Y do:[:y|1to: X 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