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