diff options
| author | Niels van Dijke <perlboy@cpan.org> | 2021-04-15 08:39:00 +0000 |
|---|---|---|
| committer | Niels van Dijke <perlboy@cpan.org> | 2021-04-15 08:39:00 +0000 |
| commit | f1ff8d78814306df940b1b31205a14d9c6f3859f (patch) | |
| tree | ff1b0ba2dde120ce6554bcd2c818d0889a999991 | |
| parent | 3d6a56a8ad216f679eb7526b84aefae6c0e8f519 (diff) | |
| download | perlweeklychallenge-club-f1ff8d78814306df940b1b31205a14d9c6f3859f.tar.gz perlweeklychallenge-club-f1ff8d78814306df940b1b31205a14d9c6f3859f.tar.bz2 perlweeklychallenge-club-f1ff8d78814306df940b1b31205a14d9c6f3859f.zip | |
If we are asked to provide 10 then give 10 (not 11)...
| -rwxr-xr-x | challenge-108/perlboy1967/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-108/perlboy1967/perl/ch-2.pl b/challenge-108/perlboy1967/perl/ch-2.pl index f6341ef4cc..f13ae7a643 100755 --- a/challenge-108/perlboy1967/perl/ch-2.pl +++ b/challenge-108/perlboy1967/perl/ch-2.pl @@ -17,7 +17,7 @@ my @bn = 1; my $bnT = [[1]]; -foreach my $bTRidx (1..10) { +foreach my $bTRidx (1..9) { my $prevTRdim = scalar(@{$bnT->[$bTRidx-1]}); # Copy |