From 4be7ed3d5a5f8f0d7e6e81bc14ef0c1c02f8ae16 Mon Sep 17 00:00:00 2001 From: Mohammad S Anwar Date: Tue, 29 Sep 2020 11:56:20 +0100 Subject: - Further tidied up Perl solutions. --- challenge-080/mohammad-anwar/perl/ch-1.pl | 3 +-- 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; -- cgit