From 809ced9215f222e0367bcce646e219c1f534ca7c Mon Sep 17 00:00:00 2001 From: Mark Anderson Date: Mon, 2 Jun 2025 07:06:28 +0000 Subject: Challenge 324 Solutions (Raku) --- challenge-324/mark-anderson/raku/ch-1.raku | 6 ++++++ challenge-324/mark-anderson/raku/ch-2.raku | 11 +++++++++++ 2 files changed, 17 insertions(+) create mode 100644 challenge-324/mark-anderson/raku/ch-1.raku create mode 100644 challenge-324/mark-anderson/raku/ch-2.raku 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({ [+^] $_ }) +} -- cgit