FuniCode 编程论坛

#Code by 523066680 / Sirpinski Triangle

my @tri = "*";

func( \@tri, 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 <= 4 ) ? 

         func( \@tri, $lv+1 ) : print join("\n", @tri);

}

>
               *               
              * *              
             *   *             
            * * * *            
           *       *           
          * *     * *          
         *   *   *   *         
        * * * * * * * *        
       *               *       
      * *             * *      
     *   *           *   *     
    * * * *         * * * *    
   *       *       *       *   
  * *     * *     * *     * *  
 *   *   *   *   *   *   *   * 
* * * * * * * * * * * * * * * *