Challenge 324 Solutions (Raku)

2 files changed, 17 insertions, 0 deletions

diff --git a/challenge-324/mark-anderson/raku/ch-1.raku b/challenge-324/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..2f5eaaded6
--- /dev/null
+++ b/challenge-324/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,6 @@
+#!/usr/bin/env raku
+use Test;
+
+is (1,2,3,4).batch(2), ((1,2),(3,4));
+is (1,2,3)  .batch(3), ((1,2,3));
+is (1,2,3,4).batch(1), ((1),(2),(3),(4));
diff --git a/challenge-324/mark-anderson/raku/ch-2.raku b/challenge-324/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..fd718d9c54
--- /dev/null
+++ b/challenge-324/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use Test;
+
+is total-xor(1,3),   6;
+is total-xor(5,1,6), 28;
+is total-xor(3..8),  480;
+
+sub total-xor(+@ints)
+{
+    [+] flat @ints, @ints.combinations(2..*).race.map({ [+^] $_ })
+}