$i=1;$p=$s=<>-2;for(0..$s){print' 'x$s--.'*'x$i." ";$i+=2}print' 'x$p.'*'
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page