diff options
| -rw-r--r-- | challenge-249/wambash/raku/ch-1.raku | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/challenge-249/wambash/raku/ch-1.raku b/challenge-249/wambash/raku/ch-1.raku new file mode 100644 index 0000000000..3ed6fe7bda --- /dev/null +++ b/challenge-249/wambash/raku/ch-1.raku @@ -0,0 +1,18 @@ +#!/usr/bin/env raku + +sub equal-pairs (+ints) { + my %bints := ints.Bag; + + %bints.kxxv.batch(2) if %bints.values.all %% 2 +} + +multi MAIN (Bool :test($)!) { + use Test; + cmp-ok equal-pairs(3,2,3,2,2,2).sort, &[~~], ((2,2),(2,2),(3,3)); + is-deeply equal-pairs(1,2,3,4), Empty; + done-testing; +} + +multi MAIN (+ints) { + say equal-pairs ints +} |