diff options
| -rwxr-xr-x | challenge-108/perlboy1967/perl/ch-2.pl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/challenge-108/perlboy1967/perl/ch-2.pl b/challenge-108/perlboy1967/perl/ch-2.pl index 3ded2c8eb9..3f086e7f1c 100755 --- a/challenge-108/perlboy1967/perl/ch-2.pl +++ b/challenge-108/perlboy1967/perl/ch-2.pl @@ -18,7 +18,6 @@ my @bn = 1; my $bnT = [[1]]; foreach my $bTRidx (1..10) { - my $prevTRdim = scalar(@{$bnT->[$bTRidx-1]}); # Copy @@ -30,7 +29,8 @@ foreach my $bTRidx (1..10) { $bnT->[$bTRidx-1][$bTCidx-1] + $bnT->[$bTRidx][$bTCidx-1]; } - push(@bn, $bnT->[$bTRidx][-1]); + + push(@bn, $bnT->[-1][-1]); } # Print |