#!/usr/bin/perl$m = <> and map { $s=' 'x$m and substr($s, $m-$_,2*$_+1) = '*'x(2*$_+1) and print "$s\n" } (0..$m);
12
* *** ***** ******* ********* *********** ************* *************** ***************** ******************* ********************* *********************** *************************
The brand new service which powers Ideone!
Widget for compiling and running the source code in a web browser!