diff options
| author | Mohammad S Anwar <Mohammad.Anwar@yahoo.com> | 2020-05-25 02:24:07 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2020-05-25 02:24:07 +0100 |
| commit | da63ca1cec8cb29c8ce98b2d51efc9e47ee09aa4 (patch) | |
| tree | dc1ec135805f47adc5b99ba4520fc1787c33026c | |
| parent | 25dd2bcc3a07f768fb22ee88137364a512aad19b (diff) | |
| parent | af5559046914ee97dd70ac51ee5a96a498de81ea (diff) | |
| download | perlweeklychallenge-club-da63ca1cec8cb29c8ce98b2d51efc9e47ee09aa4.tar.gz perlweeklychallenge-club-da63ca1cec8cb29c8ce98b2d51efc9e47ee09aa4.tar.bz2 perlweeklychallenge-club-da63ca1cec8cb29c8ce98b2d51efc9e47ee09aa4.zip | |
Merge pull request #1758 from PerlBoy1967/patch-1
Update ch-1.pl
| -rwxr-xr-x | challenge-061/PerlBoy1967/perl/ch-1.pl | 3 |
1 files changed, 0 insertions, 3 deletions
diff --git a/challenge-061/PerlBoy1967/perl/ch-1.pl b/challenge-061/PerlBoy1967/perl/ch-1.pl index 3717d09c11..18b39ac05d 100755 --- a/challenge-061/PerlBoy1967/perl/ch-1.pl +++ b/challenge-061/PerlBoy1967/perl/ch-1.pl @@ -73,9 +73,6 @@ foreach my $list (@listOfLists) { $rIdx++; } - # List exhausted? - last if ($rIdx == scalar(@list) - 1); - $lIdx = $rIdx - 1; # Calculate the new potential maximum |