Counting Adventure 10 by uru

var n,i,j:word;begin
read(n);repeat
for j:=1to n do write((".#")[i shr(n-j)and 1+1]);writeln;inc(i)until i=2**n end.

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

download

return to the top page