Anonymous user
Pascal's triangle: Difference between revisions
→{{header|Perl}}: removed &sub that, even if correct, can disturb some perl coder..
(→{{header|Perl}}: removed &sub that, even if correct, can disturb some perl coder..) |
|||
Line 3,260:
use strict;
use warnings;
{
Line 3,269 ⟶ 3,268:
my $ret ;
foreach my $yps (0..$y){
$ret += ( $tartaglia[$x-1][$yps] ||
}
$tartaglia[$x][$y] = $ret;
Line 3,280 ⟶ 3,279:
my @row;
$row[0] = &tartaglia($x,$y+1);
foreach my $pos (0..$y-1) {push @row,
return @row;
}
for (0..5) {print join ' ',
print "\n\n";
print
my @third =
print "@third\n";
</lang>
|