feat: add solutions for challenge 263 from BarrOff

2 files changed, 49 insertions, 0 deletions

diff --git a/challenge-263/barroff/raku/ch-1.p6 b/challenge-263/barroff/raku/ch-1.p6
new file mode 100644
index 0000000000..67714a3b8a
--- /dev/null
+++ b/challenge-263/barroff/raku/ch-1.p6
@@ -0,0 +1,24 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+sub target-index(Int:D $k, @ints --> Positional) {
+    indices(@ints.sort.join, $k)
+}
+
+#| Run test cases
+multi sub MAIN('test') {
+    use Test;
+    plan 3;
+
+    is target-index(2, [1, 5, 3, 2, 4, 2]), (1, 2),
+        'works for 2 and (1, 5, 3, 2, 4, 2)';
+    is target-index(6, [1, 2, 4, 3, 5]), (), 'works for 6 and (1, 2, 4, 3, 5)';
+    is target-index(4, [5, 3, 2, 4, 2, 1]), (4),
+        'works for 4 and (5, 3, 2, 4, 2, 1)';
+}
+
+#| Take user provided number like 10 1 111 24 1000
+multi sub MAIN(Int:D $k, *@ints) {
+    say target-index($k, @ints);
+}
diff --git a/challenge-263/barroff/raku/ch-2.p6 b/challenge-263/barroff/raku/ch-2.p6
new file mode 100644
index 0000000000..0c55055914
--- /dev/null
+++ b/challenge-263/barroff/raku/ch-2.p6
@@ -0,0 +1,25 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+sub merge-items(@items1, @items2 --> Positional) {
+    my %dict;
+    my @res;
+    map({ %dict{ $_[0] } += $_[1] }, @items1);
+    map({ %dict{ $_[0] } += $_[1] }, @items2);
+    map({ @res.push([$_.Int, %dict{$_}]) }, %dict.keys);
+    return @res;
+}
+
+#| Run test cases
+multi sub MAIN() {
+    use Test;
+    plan 3;
+
+    is sort(merge-items([ [1,1], [2,1], [3,2] ], [ [2,2], [1,3] ])),
+        [ [1,4], [2,3], [3,2] ], 'works for [ [1,4], [2,3], [3,2] ]';
+    is sort(merge-items([ [1,2], [2,3], [1,3], [3,2] ], [ [3,1], [1,3] ])),
+        [ [1,8], [2,3], [3,3] ], 'works for [ [1,8], [2,3], [3,3] ]';
+    is sort(merge-items([ [1,1], [2,2], [3,3] ], [ [2,3], [2,4] ])),
+        [ [1,1], [2,9], [3,3] ], 'works for [ [1,1], [2,9], [3,3] ]';
+}