diff options
| author | Steve Rogerson <steve.git@yewtc.demon.co.uk> | 2020-10-25 08:22:00 +0000 |
|---|---|---|
| committer | Steve Rogerson <steve.git@yewtc.demon.co.uk> | 2020-10-25 08:22:00 +0000 |
| commit | ed3a0647f1f420a5862498c5b9d17efd68fb0de3 (patch) | |
| tree | 09eeac6fdcae91a222e11edbb6548c433f18e13d | |
| parent | 44c2bbf87ac613a2a442cc4e54d810c20a042ff2 (diff) | |
| download | perlweeklychallenge-club-ed3a0647f1f420a5862498c5b9d17efd68fb0de3.tar.gz perlweeklychallenge-club-ed3a0647f1f420a5862498c5b9d17efd68fb0de3.tar.bz2 perlweeklychallenge-club-ed3a0647f1f420a5862498c5b9d17efd68fb0de3.zip | |
I was allowing 0 as one of the 'positive numbers'
| -rw-r--r-- | challenge-083/steve-rogerson/perl/ch-2.pl | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/challenge-083/steve-rogerson/perl/ch-2.pl b/challenge-083/steve-rogerson/perl/ch-2.pl index bfa393a3c0..726e650d97 100644 --- a/challenge-083/steve-rogerson/perl/ch-2.pl +++ b/challenge-083/steve-rogerson/perl/ch-2.pl @@ -17,7 +17,7 @@ use List::MoreUtils qw{pairwise}; my @NUMBERS = @ARGV; -if ( @NUMBERS == 0 or grep { !looks_like_number($_) || $_ < 0 } @NUMBERS ) { +if ( @NUMBERS == 0 or grep { !looks_like_number($_) || $_ <= 0 } @NUMBERS ) { die "Was expecting a list of positive numbers"; } |