diff options
| author | Daniel Mita <mienaikage@gmail.com> | 2020-10-25 23:12:37 +0000 |
|---|---|---|
| committer | Daniel Mita <mienaikage@gmail.com> | 2020-10-25 23:12:37 +0000 |
| commit | 13494ce8aebce3f563e8d5aba322e88b31cdf4cb (patch) | |
| tree | f9e5f0ee06bf76bc68946a7d135e0d0253b9ea9c /challenge-083/daniel-mita | |
| parent | ac781a322220de44eda722d7f022e63302c998b9 (diff) | |
| download | perlweeklychallenge-club-13494ce8aebce3f563e8d5aba322e88b31cdf4cb.tar.gz perlweeklychallenge-club-13494ce8aebce3f563e8d5aba322e88b31cdf4cb.tar.bz2 perlweeklychallenge-club-13494ce8aebce3f563e8d5aba322e88b31cdf4cb.zip | |
Require at least 2 numbers for challenge-083-2 args
Diffstat (limited to 'challenge-083/daniel-mita')
| -rwxr-xr-x | challenge-083/daniel-mita/perl/ch-2.pl | 4 | ||||
| -rwxr-xr-x | challenge-083/daniel-mita/raku/ch-2.raku | 2 |
2 files changed, 3 insertions, 3 deletions
diff --git a/challenge-083/daniel-mita/perl/ch-2.pl b/challenge-083/daniel-mita/perl/ch-2.pl index 69a1af4ec6..ca50637b9f 100755 --- a/challenge-083/daniel-mita/perl/ch-2.pl +++ b/challenge-083/daniel-mita/perl/ch-2.pl @@ -7,8 +7,8 @@ use feature qw<say>; use List::Util qw<sum>; use Scalar::Util qw<looks_like_number>; -if ( @ARGV == 0 || grep { !looks_like_number($_) || $_ < 1 } @ARGV ) { - say 'List of positive numbers required.'; +if ( @ARGV < 2 || grep { !looks_like_number($_) || $_ < 1 } @ARGV ) { + say 'List of at least 2 positive numbers required.'; exit 1; } diff --git a/challenge-083/daniel-mita/raku/ch-2.raku b/challenge-083/daniel-mita/raku/ch-2.raku index 3c72a13df6..f034a3de1a 100755 --- a/challenge-083/daniel-mita/raku/ch-2.raku +++ b/challenge-083/daniel-mita/raku/ch-2.raku @@ -1,7 +1,7 @@ #!/usr/bin/env raku sub MAIN( - *@positive-nums where { .elems > 0 && .all.Rat && .all > 0 } + *@positive-nums where { .elems ≥ 2 && .all.Rat && .all > 0 } --> Nil ) { @( |