diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2024-05-03 12:03:42 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-05-03 12:03:42 +0100 |
| commit | e9547515e8f3117afb59d0ed42175c27970a6338 (patch) | |
| tree | 53bb3498303a666a95468b278a8eae8e6732b2e6 /challenge-267 | |
| parent | 165ff9f618acd9c20e451392bdc5a9de026c3060 (diff) | |
| download | perlweeklychallenge-club-e9547515e8f3117afb59d0ed42175c27970a6338.tar.gz perlweeklychallenge-club-e9547515e8f3117afb59d0ed42175c27970a6338.tar.bz2 perlweeklychallenge-club-e9547515e8f3117afb59d0ed42175c27970a6338.zip | |
Update ch-1.pl
Diffstat (limited to 'challenge-267')
| -rw-r--r-- | challenge-267/reinier-maliepaard/perl/ch-1.pl | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/challenge-267/reinier-maliepaard/perl/ch-1.pl b/challenge-267/reinier-maliepaard/perl/ch-1.pl index 5ae511cf51..d77696d67f 100644 --- a/challenge-267/reinier-maliepaard/perl/ch-1.pl +++ b/challenge-267/reinier-maliepaard/perl/ch-1.pl @@ -3,14 +3,14 @@ use strict; use warnings; #------------------------------------------- sub product_sign { - + foreach (@_) { - return 0 if grep(($_ == 0), @_); - return -1 if ( (my $n = grep {$_ < 0} @_) % 2 != 0); + return 0 if ( grep {$_ == 0} @_ ); + return -1 if ( (my $n = grep {$_ < 0} @_) % 2 != 0 ); - } - return 1; + } + return 1; } # TESTS |