diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2021-04-15 08:33:32 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2021-04-15 08:33:32 +0000 |
| commit | ab90f89d31b858641b8212ade0b7b7def7f74f1e (patch) | |
| tree | 72827beb5469bd4de9dc80e5dddd1005cf84c69e | |
| parent | dbb4d44017925091fa42623f9081b5cbf47027cc (diff) | |
| download | perlweeklychallenge-club-ab90f89d31b858641b8212ade0b7b7def7f74f1e.tar.gz perlweeklychallenge-club-ab90f89d31b858641b8212ade0b7b7def7f74f1e.tar.bz2 perlweeklychallenge-club-ab90f89d31b858641b8212ade0b7b7def7f74f1e.zip | |
Simplified the index code (because it can)
| -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 |