simple octagon tesselation by pascal

for$i(0..($m=($n=<>*3)*3-6)){$o.=$n-4-($i<$n?$i:$m-$i)<($_<$n?$_:$m-$_)&&!($i%3)^!($_%3)?'#':' 'for(0..$m);$o=~s/ *$/\n/}print$o

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

download

return to the top page