Merge pull request #9884 from wambash/challenge-week-263

solutions week 263

2 files changed, 38 insertions, 0 deletions

diff --git a/challenge-263/wambash/raku/ch-1.raku b/challenge-263/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..13d3ccf8db
--- /dev/null
+++ b/challenge-263/wambash/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub target-index (+ints,:$k) {
+    ints
+    andthen .sort
+    andthen .grep: { $_ == $k },:k
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is target-index(1,5,3,2,4,2,:2k),(1,2);
+    is target-index(1..5,:6k),();
+    is target-index(5,3,2,4,2,1,:4k),(4);
+    done-testing;
+}
+
+multi MAIN (+ints,:$k) {
+    put target-index ints,:$k
+}
diff --git a/challenge-263/wambash/raku/ch-2.raku b/challenge-263/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..91656fd521
--- /dev/null
+++ b/challenge-263/wambash/raku/ch-2.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+
+sub merge-items (*@items) {
+    @items
+    andthen .map: *.pairup
+    andthen .Bag
+}
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is-deeply merge-items([[1,1],[2,1],[3,2]],[[2,2],[1,3]]),(1=>4 ,2=>3,3=>2).Bag;
+    is-deeply merge-items([ [1,2], [2,3], [1,3], [3,2] ],[ [3,1], [1,3] ]),(1=>8 ,2=>3,3=>3).Bag;
+    is-deeply merge-items([ [1,1], [2,2], [3,3]],[ [2,3], [2,4] ]),(1=>1 ,2=>9,3=>3).Bag;
+    done-testing;
+}
+
+multi MAIN (*@items) {
+    .put for merge-items @items».split(',')
+}