checkers pattern by D

with Gnat.Io;procedure Gnat.Spitbol.C is use Io;X,Y:Integer;begin Get(x);Get(y);for I in 1..X loop Put_Line(S(I Mod 2*" 1"&Y*" 0 1")(2..Y*2));end Loop;end;

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

download

return to the top page