From 56516e8bea7d7bfb51468faa1fa529ccd70f4cac Mon Sep 17 00:00:00 2001
From: Arne Sommer <arne@bbop.org>
Date: Sun, 13 Jul 2025 16:19:32 +0200
Subject: Arne Sommer

---
 challenge-329/arne-sommer/blog.txt              |  1 +
 challenge-329/arne-sommer/raku/ch-1.raku        | 10 ++++++++
 challenge-329/arne-sommer/raku/ch-2.raku        | 31 +++++++++++++++++++++++++
 challenge-329/arne-sommer/raku/counter-integers | 10 ++++++++
 challenge-329/arne-sommer/raku/nice-string      | 31 +++++++++++++++++++++++++
 5 files changed, 83 insertions(+)
 create mode 100644 challenge-329/arne-sommer/blog.txt
 create mode 100755 challenge-329/arne-sommer/raku/ch-1.raku
 create mode 100755 challenge-329/arne-sommer/raku/ch-2.raku
 create mode 100755 challenge-329/arne-sommer/raku/counter-integers
 create mode 100755 challenge-329/arne-sommer/raku/nice-string

diff --git a/challenge-329/arne-sommer/blog.txt b/challenge-329/arne-sommer/blog.txt
new file mode 100644
index 0000000000..b1bd5aa033
--- /dev/null
+++ b/challenge-329/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/counter-nice.html
diff --git a/challenge-329/arne-sommer/raku/ch-1.raku b/challenge-329/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..750085b5d7
--- /dev/null
+++ b/challenge-329/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,10 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($str where $str ~~ /^<[ a..z 0 .. 9 ]>+$/,
+               :v(:$verbose));
+
+my @ints = $str.split(/<[a..z]>+/).grep: * ~~ /\d+/;
+
+say ": Integers: { @ints.join(", ") }" if $verbose;
+
+say @ints.unique.join(", ");
diff --git a/challenge-329/arne-sommer/raku/ch-2.raku b/challenge-329/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..0a03d2b25b
--- /dev/null
+++ b/challenge-329/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,31 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($str where $str ~~ /^<[ a..z A .. Z ]>+$/,
+               :v(:$verbose));
+
+my @str     = $str.comb;
+my $current = @str.shift;
+my @nice;
+
+while @str.elems
+{
+  if @str[0].lc eq $current.substr(0,1).lc
+  {
+    $current ~= @str.shift;
+  }
+  else
+  {
+    @nice.push: $current if $current.comb.unique.elems == 2;
+    $current = @str.shift;
+  }
+}
+
+@nice.push($current) if $current.comb.unique.elems == 2;
+
+say ": Nice: { @nice.join(", ") }" if $verbose;
+
+@nice .= sort({ $^b.chars <=> $^a.chars });
+
+say ": Nice by length: { @nice.join(", ") }" if $verbose;
+
+say @nice.first // "";
diff --git a/challenge-329/arne-sommer/raku/counter-integers b/challenge-329/arne-sommer/raku/counter-integers
new file mode 100755
index 0000000000..750085b5d7
--- /dev/null
+++ b/challenge-329/arne-sommer/raku/counter-integers
@@ -0,0 +1,10 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($str where $str ~~ /^<[ a..z 0 .. 9 ]>+$/,
+               :v(:$verbose));
+
+my @ints = $str.split(/<[a..z]>+/).grep: * ~~ /\d+/;
+
+say ": Integers: { @ints.join(", ") }" if $verbose;
+
+say @ints.unique.join(", ");
diff --git a/challenge-329/arne-sommer/raku/nice-string b/challenge-329/arne-sommer/raku/nice-string
new file mode 100755
index 0000000000..0a03d2b25b
--- /dev/null
+++ b/challenge-329/arne-sommer/raku/nice-string
@@ -0,0 +1,31 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($str where $str ~~ /^<[ a..z A .. Z ]>+$/,
+               :v(:$verbose));
+
+my @str     = $str.comb;
+my $current = @str.shift;
+my @nice;
+
+while @str.elems
+{
+  if @str[0].lc eq $current.substr(0,1).lc
+  {
+    $current ~= @str.shift;
+  }
+  else
+  {
+    @nice.push: $current if $current.comb.unique.elems == 2;
+    $current = @str.shift;
+  }
+}
+
+@nice.push($current) if $current.comb.unique.elems == 2;
+
+say ": Nice: { @nice.join(", ") }" if $verbose;
+
+@nice .= sort({ $^b.chars <=> $^a.chars });
+
+say ": Nice by length: { @nice.join(", ") }" if $verbose;
+
+say @nice.first // "";
-- 
cgit