523066680

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

523066680

接下来可以打印字符版 Sirpinsiki 三角形

523066680

回复 19# happy886rr

夸张了 ，没试过字符版，好像可以先从直角开始。

my $floor = 5;
my $s = " "x$floor;
my @line;

for my $n ( 0 .. $floor-1 )
{
    $s=~s/ /*/;
    $line[$n] = $s;
}

for my $n ( $floor .. $floor*$floor - 1 )
{
    $line[$n] = $line[$n%$floor] x ($n/$floor+1);
}

print join("\n", @line);
复制代码

*   
**   
***  
****
*****
*    *   
**   **   
***  ***  
**** ****
**********
*    *    *   
**   **   **   
***  ***  ***  
**** **** ****
***************
*    *    *    *   
**   **   **   **   
***  ***  ***  ***  
**** **** **** ****
********************
*    *    *    *    *   
**   **   **   **   **   
***  ***  ***  ***  ***  
**** **** **** **** ****
*************************

发现差远了，晚点儿补上

523066680

my @lines = "*";
func( \@lines, 1 );

sub func
{
    my ($ref, $lv) = (shift, shift);
    my @tri;
    my $top = $#$ref + 1;

    grep { push @tri, "$_ $_" } @$ref;
    grep { unshift @tri, " "x$top .$_ ." "x$top } ( reverse @$ref );

    ( $lv <= 3 ) ? 
         func( \@tri, $lv+1 ) : print join("\n", @tri);
}
复制代码

               *               
              * *              
             *   *             
            * * * *            
           *       *           
          * *     * *          
         *   *   *   *         
        * * * * * * * *        
       *               *       
      * *             * *      
     *   *           *   *     
    * * * *         * * * *    
   *       *       *       *   
  * *     * *     * *     * *  
 *   *   *   *   *   *   *   * 
* * * * * * * * * * * * * * * *
复制代码

523066680

回复 28# 老刘1号


    其实我20楼的那个不是标准的，上午想起来不对马上打草稿补了一发~

原版的是有一种递归性质，不管从哪一部分放大看都有相似性，而且越大越密集越好看

https://en.wikipedia.org/wiki/Sierpinski_triangle