Merge pull request #10687 from wambash/challenge-week-283

solutions week 283

2 files changed, 37 insertions, 0 deletions

diff --git a/challenge-283/wambash/raku/ch-1.raku b/challenge-283/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..dd9ba3c597
--- /dev/null
+++ b/challenge-283/wambash/raku/ch-1.raku
@@ -0,0 +1,21 @@
+#!/usr/bin/env raku
+
+sub unique-number (+ints) {
+    ints
+    andthen .Bag
+    andthen .first: *.value == 1
+    andthen .key
+}
+
+multi MAIN (Bool :test($)!) {
+    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;
+    done-testing;
+}
+
+multi MAIN (+ints) {
+    say unique-number ints
+}
diff --git a/challenge-283/wambash/raku/ch-2.raku b/challenge-283/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..03286752de
--- /dev/null
+++ b/challenge-283/wambash/raku/ch-2.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/env raku
+
+sub digit-count-value (+$_) {
+    .pairs.Bag eqv .Bag
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is digit-count-value(1,2,1,0), True;
+    is digit-count-value(0,3,0), False;
+    done-testing;
+}
+
+multi MAIN (+ints) {
+    say digit-count-value ints».Int
+}