box in box by uru

#define Y(a,b,n)(abs(i)in[a..a+n])&(abs(j)in[b..b+n])|
#define X(a,b,n)Y(a,b,n)Y(b,a,n)Y(b,b,n)
var i,j:comp;begin
for i:=-20to 20do for j:=-20to 20do
write(copy("[]
",1+9*ord(X(1,1,0)X(-1,3,2)X(1,7,4)X(-3,13,6)X(5,13,6)false)):2+ord(j=20))end.

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

download

return to the top page