diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2025-05-06 15:23:35 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2025-05-06 15:23:35 +0100 |
| commit | 2ab682891231239b69b797be4d6502ee076cb5a5 (patch) | |
| tree | 05eff3c1d55b78e93e6717e77b14aac35b8191bd | |
| parent | a2265fefba0e3ac82d7f683bde82d20e95664eee (diff) | |
| parent | 637bd9d58e7a2d3e7ea64b24f5f06a3b13f95036 (diff) | |
| download | perlweeklychallenge-club-2ab682891231239b69b797be4d6502ee076cb5a5.tar.gz perlweeklychallenge-club-2ab682891231239b69b797be4d6502ee076cb5a5.tar.bz2 perlweeklychallenge-club-2ab682891231239b69b797be4d6502ee076cb5a5.zip | |
Merge pull request #11976 from andemark/challenge-320
Challenge 320 Solutions (Raku)
| -rw-r--r-- | challenge-320/mark-anderson/raku/ch-1.raku | 12 | ||||
| -rw-r--r-- | challenge-320/mark-anderson/raku/ch-2.raku | 11 |
2 files changed, 23 insertions, 0 deletions
diff --git a/challenge-320/mark-anderson/raku/ch-1.raku b/challenge-320/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..8feb963686 --- /dev/null +++ b/challenge-320/mark-anderson/raku/ch-1.raku @@ -0,0 +1,12 @@ +#!/usr/bin/env raku +use Test; + +is max-count(-3,-2,-1,1,2,3), 3; +is max-count(-2,-1,0,0,1), 2; +is max-count(1,2,3,4), 4; + +sub max-count(+@ints) +{ + my %h = classify { .sign }, @ints; + max %h<1>.elems, %h<-1>.elems +} diff --git a/challenge-320/mark-anderson/raku/ch-2.raku b/challenge-320/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..851ea46511 --- /dev/null +++ b/challenge-320/mark-anderson/raku/ch-2.raku @@ -0,0 +1,11 @@ +#!/usr/bin/env raku +use Test; + +is sum-diff(1,23,4,5), 18; +is sum-diff(1,2,3,4,5), 0; +is sum-diff(1,2,34), 27; + +sub sum-diff(+@ints) +{ + @ints.sum - @ints.comb.sum +} |