diff options
| -rw-r--r-- | challenge-080/mohammad-anwar/perl/ch-1.pl | 2 | ||||
| -rw-r--r-- | challenge-080/mohammad-anwar/perl/ch-1.t | 2 |
2 files changed, 2 insertions, 2 deletions
diff --git a/challenge-080/mohammad-anwar/perl/ch-1.pl b/challenge-080/mohammad-anwar/perl/ch-1.pl index 71b467c148..b8b8f8eeb6 100644 --- a/challenge-080/mohammad-anwar/perl/ch-1.pl +++ b/challenge-080/mohammad-anwar/perl/ch-1.pl @@ -29,7 +29,7 @@ sub smallest_positive_number { return $n if ($n < $positive_numbers[$i++]); } - return $positive_numbers[-1]+1; + return ++$positive_numbers[-1]; } sub get_list { diff --git a/challenge-080/mohammad-anwar/perl/ch-1.t b/challenge-080/mohammad-anwar/perl/ch-1.t index 2b615d1564..9ae519361b 100644 --- a/challenge-080/mohammad-anwar/perl/ch-1.t +++ b/challenge-080/mohammad-anwar/perl/ch-1.t @@ -40,5 +40,5 @@ sub smallest_positive_number { return $n if ($n < $positive_numbers[$i++]); } - return $positive_numbers[-1]+1; + return ++$positive_numbers[-1]; } |