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