打印金字塔

[523066680]

:perl -e "grep {print ' 'x(10-$_),'*'x($_*2+1),chr(10) } (0..10) "
          *
         ***
        *****
       *******
      *********
     ***********
    *************
   ***************
  *****************
 *******************
*********************


:perl -e "$s='*'; for (0..10) {print ' 'x(10-$_),$s,chr(10); $s.='**'}"
          *
         ***
        *****
       *******
      *********
     ***********
    *************
   ***************
  *****************
 *******************
*********************

or 字符串替换

Code: [show] | [select all]

my $s="          *          \n";

do { print $s } while ( $s=~s/ (\*+) /*$1*/ );