From 832fcb22fb7e5af716cd931f51722810cd7b07c6 Mon Sep 17 00:00:00 2001
From: Joelle Maslak <jmaslak@antelope.net>
Date: Wed, 12 Jul 2023 18:10:22 -0400
Subject: Solution in Raku for Challenge 225

---
 challenge-225/joelle-maslak/raku/ch-1.raku | 14 ++++++++++++++
 challenge-225/joelle-maslak/raku/ch-2.raku | 25 +++++++++++++++++++++++++
 2 files changed, 39 insertions(+)
 create mode 100755 challenge-225/joelle-maslak/raku/ch-1.raku
 create mode 100755 challenge-225/joelle-maslak/raku/ch-2.raku

diff --git a/challenge-225/joelle-maslak/raku/ch-1.raku b/challenge-225/joelle-maslak/raku/ch-1.raku
new file mode 100755
index 0000000000..547d9fd6ba
--- /dev/null
+++ b/challenge-225/joelle-maslak/raku/ch-1.raku
@@ -0,0 +1,14 @@
+#!/usr/bin/env raku
+use v6.d;
+
+my Str:D @INPUT = ("Perl and Raku belong to the same family.",
+             "I love Perl.",
+             "The Perl and Raku Conference.");
+
+sub MAIN(*@input) {
+    @input = @INPUT unless @input.elems;
+
+    say "Max words: " ~ max @input».words».elems.max;
+}
+
+
diff --git a/challenge-225/joelle-maslak/raku/ch-2.raku b/challenge-225/joelle-maslak/raku/ch-2.raku
new file mode 100755
index 0000000000..3c5f6fd4aa
--- /dev/null
+++ b/challenge-225/joelle-maslak/raku/ch-2.raku
@@ -0,0 +1,25 @@
+#!/usr/bin/env raku
+use v6.d;
+
+my @INPUT = (10, 4, 8, 3);
+
+sub leftsum(@numbers) {
+    return () unless @numbers.elems;
+    gather {
+        for 0..^(@numbers.elems) -> $i {
+            take @numbers[0..^$i].sum;
+        }
+    }
+}
+
+sub MAIN(*@input) {
+    @input = @INPUT unless @input.elems;
+
+    my @left = leftsum(@input);
+    my @right = leftsum(@input.reverse).reverse;
+
+    my @differences = (@left Z @right).map: {abs($^a[0] - $^a[1])};
+    say "Left/right sum differences: " ~ @differences.join(", ");
+}
+
+
-- 
cgit