diff options
| author | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-29 11:59:56 +0100 |
|---|---|---|
| committer | Mohammad S Anwar <mohammad.anwar@yahoo.com> | 2020-09-29 11:59:56 +0100 |
| commit | 37e9f9b26e307f7c9d0bbaf65000c50c4b694964 (patch) | |
| tree | 35b13efc91b8181bae31abaf93b19934a38dc8af /challenge-080 | |
| parent | 4ef14b62f5d60a10e96d4392ec5fe60439b7292f (diff) | |
| download | perlweeklychallenge-club-37e9f9b26e307f7c9d0bbaf65000c50c4b694964.tar.gz perlweeklychallenge-club-37e9f9b26e307f7c9d0bbaf65000c50c4b694964.tar.bz2 perlweeklychallenge-club-37e9f9b26e307f7c9d0bbaf65000c50c4b694964.zip | |
- Minor improvement.
Diffstat (limited to 'challenge-080')
| -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]; } |