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