solution week 249-1

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
+}