Merge pull request #12332 from arnesom/branch-for-challenge-329

Arne Sommer

5 files changed, 83 insertions, 0 deletions

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 // "";