diff options
| -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; |