in reply to Re: Pascal triange...
in thread Pascal's triangle...

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;
    }
}

[download]

Abigail

Replies are listed 'Best First'.
Re: Re: Pascal triange...
by Burak (Chaplain) on Dec 25, 2003 at 14:35 UTC
    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;
   }
}

    [download]
[reply]
[d/l]

In Section Seekers of Perl Wisdom