From ed3a0647f1f420a5862498c5b9d17efd68fb0de3 Mon Sep 17 00:00:00 2001 From: Steve Rogerson Date: Sun, 25 Oct 2020 08:22:00 +0000 Subject: I was allowing 0 as one of the 'positive numbers' --- challenge-083/steve-rogerson/perl/ch-2.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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"; } -- cgit