From 28af7e8e723606542c0ea7864456b7547d9532ef Mon Sep 17 00:00:00 2001
From: Arne Sommer <arne@bbop.org>
Date: Sun, 19 Jan 2025 17:37:14 +0100
Subject: Arne Sommer

---
 challenge-304/arne-sommer/blog.txt             |  1 +
 challenge-304/arne-sommer/raku/arrange-binary  | 33 ++++++++++++++++++++++++++
 challenge-304/arne-sommer/raku/ch-1.raku       | 33 ++++++++++++++++++++++++++
 challenge-304/arne-sommer/raku/ch-2.raku       | 25 +++++++++++++++++++
 challenge-304/arne-sommer/raku/maximum-average | 25 +++++++++++++++++++
 5 files changed, 117 insertions(+)
 create mode 100644 challenge-304/arne-sommer/blog.txt
 create mode 100755 challenge-304/arne-sommer/raku/arrange-binary
 create mode 100755 challenge-304/arne-sommer/raku/ch-1.raku
 create mode 100755 challenge-304/arne-sommer/raku/ch-2.raku
 create mode 100755 challenge-304/arne-sommer/raku/maximum-average

diff --git a/challenge-304/arne-sommer/blog.txt b/challenge-304/arne-sommer/blog.txt
new file mode 100644
index 0000000000..2cb0747e07
--- /dev/null
+++ b/challenge-304/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/arranged-average.html
diff --git a/challenge-304/arne-sommer/raku/arrange-binary b/challenge-304/arne-sommer/raku/arrange-binary
new file mode 100755
index 0000000000..005395c6a0
--- /dev/null
+++ b/challenge-304/arne-sommer/raku/arrange-binary
@@ -0,0 +1,33 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@ints is copy where @ints.elems > 0 && all(@ints) eq any(0,1),
+               Int :$n where $n > 0,
+               :v(:$verbose));
+
+if @ints.join ~~ /11/
+{
+  say ':Found neighbourly 1s in the input' if $verbose;
+  say 'false';
+  exit;
+}
+
+my $replaced = 0;
+
+for 0 .. @ints.end -> $index
+{
+  if @ints[$index] == 0
+  {
+    if $index == 0 || @ints[$index -1] == 0
+    {
+      if $index == @ints.end || @ints[$index +1] == 0
+      {
+        @ints[$index] = 1;
+        $replaced++;
+	
+	say ": Replaced #$replaced at index $index: [{ @ints.join(",") }]" if $verbose;
+      }
+    }
+  }
+}
+
+say $replaced >= $n ?? 'true' !! 'false';
diff --git a/challenge-304/arne-sommer/raku/ch-1.raku b/challenge-304/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..005395c6a0
--- /dev/null
+++ b/challenge-304/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,33 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@ints is copy where @ints.elems > 0 && all(@ints) eq any(0,1),
+               Int :$n where $n > 0,
+               :v(:$verbose));
+
+if @ints.join ~~ /11/
+{
+  say ':Found neighbourly 1s in the input' if $verbose;
+  say 'false';
+  exit;
+}
+
+my $replaced = 0;
+
+for 0 .. @ints.end -> $index
+{
+  if @ints[$index] == 0
+  {
+    if $index == 0 || @ints[$index -1] == 0
+    {
+      if $index == @ints.end || @ints[$index +1] == 0
+      {
+        @ints[$index] = 1;
+        $replaced++;
+	
+	say ": Replaced #$replaced at index $index: [{ @ints.join(",") }]" if $verbose;
+      }
+    }
+  }
+}
+
+say $replaced >= $n ?? 'true' !! 'false';
diff --git a/challenge-304/arne-sommer/raku/ch-2.raku b/challenge-304/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..08c68477e1
--- /dev/null
+++ b/challenge-304/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,25 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@ints where @ints.elems > 0 && all(@ints) ~~ Int,
+               Int :$n where $n > 0 && $n <= @ints.elems,
+               :v(:$verbose));
+
+my $max-avg = -Inf;
+
+for 0 .. @ints.elems - $n -> $start
+{
+  my $avg = @ints[$start .. $start + $n -1].sum / $n;
+
+  if $avg > $max-avg
+  {
+    $max-avg = $avg;
+
+    say ": New maximum average $max-avg at index $start to { $start + $n -1 }" if $verbose;
+  }
+  elsif $verbose
+  {
+     say ": Not a new maximum average $max-avg at index $start to { $start + $n -1 }";
+  }
+}
+
+say $max-avg;
diff --git a/challenge-304/arne-sommer/raku/maximum-average b/challenge-304/arne-sommer/raku/maximum-average
new file mode 100755
index 0000000000..08c68477e1
--- /dev/null
+++ b/challenge-304/arne-sommer/raku/maximum-average
@@ -0,0 +1,25 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@ints where @ints.elems > 0 && all(@ints) ~~ Int,
+               Int :$n where $n > 0 && $n <= @ints.elems,
+               :v(:$verbose));
+
+my $max-avg = -Inf;
+
+for 0 .. @ints.elems - $n -> $start
+{
+  my $avg = @ints[$start .. $start + $n -1].sum / $n;
+
+  if $avg > $max-avg
+  {
+    $max-avg = $avg;
+
+    say ": New maximum average $max-avg at index $start to { $start + $n -1 }" if $verbose;
+  }
+  elsif $verbose
+  {
+     say ": Not a new maximum average $max-avg at index $start to { $start + $n -1 }";
+  }
+}
+
+say $max-avg;
-- 
cgit