feat: add solutions for challenges 323 and 324 from BarrOff

2 files changed, 51 insertions, 0 deletions

diff --git a/challenge-324/barroff/raku/ch-1.p6 b/challenge-324/barroff/raku/ch-1.p6
new file mode 100644
index 0000000000..361f86f78b
--- /dev/null
+++ b/challenge-324/barroff/raku/ch-1.p6
@@ -0,0 +1,24 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+sub d2-array(Int $r, Int $c, @ints --> Seq) {
+    map({ @ints[$_ × $c ..^ ($_ + 1) × $c] }, 0..^$r);
+}
+
+#| Run test cases
+multi sub MAIN('test') {
+    use Test;
+    plan 3;
+
+    is d2-array(2, 2, [1, 2, 3, 4]), [[1, 2], [3, 4]],
+        'works for "2, 2, [1, 2, 3, 4]"';
+    is d2-array(1, 3, [1, 2, 3]), [1, 2, 3], 'works for "1, 3, [1, 2, 3]"';
+    is d2-array(4, 1, [1, 2, 3, 4]), [[1], [2], [3], [4]],
+        'works for "4, 1, [1, 2, 3, 4]"';
+}
+
+#| Take user provided number like "Perl Weekly Challenge" l a
+multi sub MAIN(Int $r, Int $c, *@ints) {
+    say d2-array($r, $c, @ints);
+}
diff --git a/challenge-324/barroff/raku/ch-2.p6 b/challenge-324/barroff/raku/ch-2.p6
new file mode 100644
index 0000000000..1217d28c65
--- /dev/null
+++ b/challenge-324/barroff/raku/ch-2.p6
@@ -0,0 +1,27 @@
+#!/usr/bin/env raku
+
+use v6.d;
+
+sub total-xor(@ints --> Int) {
+    sum(
+        map(
+            { reduce(&infix:<+^>, $_) },
+            combinations(@ints)
+        )
+    )
+}
+
+#| Run test cases
+multi sub MAIN('test') {
+    use Test;
+    plan 3;
+
+    is total-xor([1, 3]), 6, 'works for "[1, 3]"';
+    is total-xor([5, 1, 6]), 28, 'works for "[5, 1, 6]"';
+    is total-xor([3, 4, 5, 6, 7, 8]), 480, 'works for "[3, 4, 5, 6, 7, 8]"';
+}
+
+#| Take user provided numbers like 3, 4, 5, 6, 7, 8
+multi sub MAIN(@ints) {
+    say total-xor(@ints);
+}