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