<>=~/ /;$i=$`-1;$d=$i*2-1;$D=-1;$a=$'.($"x$d.$')x$i;$b.=$"x++$o.($'.$"x($d-=2).$'.$"x($D+=2))x$i.$'.$/for 2..$i;print"$a\n$b",$"x++$o,$a
Note that non-ascii characters in the above source code will be escaped (such as \x9f).
download
return to the top page