Merge pull request #9845 from andemark/challenge-263

Challenge 263 Solutions (Raku)

2 files changed, 25 insertions, 0 deletions

diff --git a/challenge-263/mark-anderson/raku/ch-1.raku b/challenge-263/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..32b97979a5
--- /dev/null
+++ b/challenge-263/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use Test;
+
+is-deeply target-index((1,5,3,2,4,2), 2), (1,2); 
+is-deeply target-index((1,2,4,3,5),   6), ();
+is-deeply target-index((5,3,2,4,2,1), 4), (4,);
+
+sub target-index(@ints, $k)
+{
+    @ints.sort.grep($k, :k)
+}
diff --git a/challenge-263/mark-anderson/raku/ch-2.raku b/challenge-263/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..e303e361f3
--- /dev/null
+++ b/challenge-263/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/env raku
+use Test;
+
+is-deeply merge-items([[1,1],[2,1],[3,2]],       [[2,2],[1,3]]), ((1,4),(2,3),(3,2));
+is-deeply merge-items([[1,2],[2,3],[1,3],[3,2]], [[3,1],[1,3]]), ((1,8),(2,3),(3,3));
+is-deeply merge-items([[1,1],[2,2],[3,3]],       [[2,3],[2,4]]), ((1,1),(2,9),(3,3));
+
+sub merge-items($i1, $i2)
+{
+    given (|$i1, |$i2).classify({.head}, :as{.tail})
+    {
+        sort .keys Z .values>>.sum
+    }
+}