diff options
| author | Mohammad Sajid Anwar <Mohammad.Anwar@yahoo.com> | 2024-08-19 10:34:23 +0100 |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2024-08-19 10:34:23 +0100 |
| commit | 3df28a7c74838da0c2de8ff525c5c0efc47ac3f1 (patch) | |
| tree | 906d5e24214033f7b6ff6ff42ba6042db5ff2de5 | |
| parent | 66e40605e5f81e5f18fc43317771bc4736e5c91b (diff) | |
| parent | 6c118ebe9e5968457996c727dacf1432f316ab6d (diff) | |
| download | perlweeklychallenge-club-3df28a7c74838da0c2de8ff525c5c0efc47ac3f1.tar.gz perlweeklychallenge-club-3df28a7c74838da0c2de8ff525c5c0efc47ac3f1.tar.bz2 perlweeklychallenge-club-3df28a7c74838da0c2de8ff525c5c0efc47ac3f1.zip | |
Merge pull request #10648 from andemark/challenge-283
Challenge 283 Solutions (Raku)
| -rw-r--r-- | challenge-283/mark-anderson/raku/ch-1.raku | 12 | ||||
| -rw-r--r-- | challenge-283/mark-anderson/raku/ch-2.raku | 10 |
2 files changed, 22 insertions, 0 deletions
diff --git a/challenge-283/mark-anderson/raku/ch-1.raku b/challenge-283/mark-anderson/raku/ch-1.raku new file mode 100644 index 0000000000..7f653dd273 --- /dev/null +++ b/challenge-283/mark-anderson/raku/ch-1.raku @@ -0,0 +1,12 @@ +#!/usr/bin/env raku +use Test; + +is unique-number(3,3,1), 1; +is unique-number(3,2,4,2,4), 3; +is unique-number(1), 1; +is unique-number(4,3,1,1,1,4), 3; + +sub unique-number(+@ints) +{ + @ints (-) @ints.repeated +} diff --git a/challenge-283/mark-anderson/raku/ch-2.raku b/challenge-283/mark-anderson/raku/ch-2.raku new file mode 100644 index 0000000000..8673a1de5f --- /dev/null +++ b/challenge-283/mark-anderson/raku/ch-2.raku @@ -0,0 +1,10 @@ +#!/usr/bin/env raku +use Test; + +ok digital-count-value(1,2,1,0); +nok digital-count-value(0,3,0); + +sub digital-count-value(+@ints) +{ + @ints.pairs.Bag eqv @ints.Bag +} |