diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2024-03-30 16:55:28 +0000 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-03-30 16:55:28 +0000 |
| commit | 8c9ae3c73fc1370daabe1090c1a9d4f701770543 (patch) | |
| tree | 2655171c264ceb94c7b7bdabe69b0f6faec3b9a5 | |
| parent | af1b7cf004b707d2bf7f9f22dbc58ab2bdd04444 (diff) | |
| download | perlweeklychallenge-club-8c9ae3c73fc1370daabe1090c1a9d4f701770543.tar.gz perlweeklychallenge-club-8c9ae3c73fc1370daabe1090c1a9d4f701770543.tar.bz2 perlweeklychallenge-club-8c9ae3c73fc1370daabe1090c1a9d4f701770543.zip | |
Create ch-1a.pl
| -rw-r--r-- | challenge-262/reinier-maliepaard/perl/ch-1a.pl | 17 |
1 files changed, 17 insertions, 0 deletions
diff --git a/challenge-262/reinier-maliepaard/perl/ch-1a.pl b/challenge-262/reinier-maliepaard/perl/ch-1a.pl new file mode 100644 index 0000000000..5250172175 --- /dev/null +++ b/challenge-262/reinier-maliepaard/perl/ch-1a.pl @@ -0,0 +1,17 @@ +# assumption 1: no number 0 +# assumption 2: number of positive and negative integers differ, meaning +# - positive integers > negative integers: more than (scalar(@_)/2) is positive +# - negative integers > positive integers: less than (scalar(@_)/2) is positive + +sub max_pos_neg { + ( ($pos = scalar(grep { $_ > 0 } @_)) > (scalar(@_)/2) ) ? print("max positive integers: $pos\n") : print("max negative integers: ", (scalar(@_) - $pos) , "\n"); +} + +@ints = qw(-3 1 2 -1 3 -2 4); +max_pos_neg(@ints); # max positive integers: 4 + +@ints = qw(-1 -2 -3 1); +max_pos_neg(@ints); # max negative integers: 3 + +@ints = qw(1 2); +max_pos_neg(@ints); # max positive integers: 2 |