Re: Pascal triange...

[Abigail-II]

Here's a variation on the theme. The difference is that this version doesn't change @row using pushes. It's going to be sized right the first time.

sub pascal {
    my @row = (0) x $_ [0];
    $row [0] = 1;
    foreach (1 .. shift) {
        print "@row[0 .. $_ - 1]\n";
        $row [$_] += $row [$_ - 1] for reverse 1 .. @row;
    }
}

Abigail

[Burak]

Maybe we can add space padding to your function :)

sub pascal {
   my $max    = shift or return;
   my @row    = (0) x $max;
      $row[0] = 1;
   foreach (1 .. $max) {
       print " " x ($max - $_),"@row[0 .. $_ - 1]\n";
       $row[$_] += $row[$_ - 1] for reverse 1 .. @row;
   }
}