diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-29 11:56:20 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-29 11:56:20 +0100 |
| commit | 4be7ed3d5a5f8f0d7e6e81bc14ef0c1c02f8ae16 (patch) | |
| tree | be952385e4d43cb39ba7b6ee72468dc3ad3318bf | |
| parent | 659977df093cd33402856085fffbcba2b5d47dee (diff) | |
| download | perlweeklychallenge-club-4be7ed3d5a5f8f0d7e6e81bc14ef0c1c02f8ae16.tar.gz perlweeklychallenge-club-4be7ed3d5a5f8f0d7e6e81bc14ef0c1c02f8ae16.tar.bz2 perlweeklychallenge-club-4be7ed3d5a5f8f0d7e6e81bc14ef0c1c02f8ae16.zip | |
- Further tidied up Perl solutions.
| -rw-r--r-- | challenge-080/mohammad-anwar/perl/ch-1.pl | 3 | ||||
| -rw-r--r-- | challenge-080/mohammad-anwar/perl/ch-1.t | 3 |
2 files changed, 2 insertions, 4 deletions
diff --git a/challenge-080/mohammad-anwar/perl/ch-1.pl b/challenge-080/mohammad-anwar/perl/ch-1.pl index cbd1935ab6..71b467c148 100644 --- a/challenge-080/mohammad-anwar/perl/ch-1.pl +++ b/challenge-080/mohammad-anwar/perl/ch-1.pl @@ -26,8 +26,7 @@ sub smallest_positive_number { my $i = 0; for my $n (1 .. $positive_numbers[-1]) { - next if ($n == $positive_numbers[$i++]); - return $n; + return $n if ($n < $positive_numbers[$i++]); } return $positive_numbers[-1]+1; diff --git a/challenge-080/mohammad-anwar/perl/ch-1.t b/challenge-080/mohammad-anwar/perl/ch-1.t index 7bd3ce5355..284552a15e 100644 --- a/challenge-080/mohammad-anwar/perl/ch-1.t +++ b/challenge-080/mohammad-anwar/perl/ch-1.t @@ -37,8 +37,7 @@ sub smallest_positive_number { my $i = 0; for my $n (1 .. $positive_numbers[-1]) { - next if ($n == $positive_numbers[$i++]); - return $n; + return $n if ($n < $positive_numbers[$i++]); } return $positive_numbers[-1]+1; |