From 37d2de9e0fc6e71aea0d33e1f229a1f2eaf89e5e Mon Sep 17 00:00:00 2001
From: arnesom <arne@bbop.org>
Date: Sat, 20 Jul 2024 18:39:03 +0200
Subject: Arne Sommer

---
 challenge-278/arne-sommer/blog.txt          |  1 +
 challenge-278/arne-sommer/raku/ch-1.raku    | 19 +++++++++++++++++++
 challenge-278/arne-sommer/raku/ch-2.raku    |  7 +++++++
 challenge-278/arne-sommer/raku/reverse-word |  7 +++++++
 challenge-278/arne-sommer/raku/sort-string  | 19 +++++++++++++++++++
 5 files changed, 53 insertions(+)
 create mode 100644 challenge-278/arne-sommer/blog.txt
 create mode 100755 challenge-278/arne-sommer/raku/ch-1.raku
 create mode 100755 challenge-278/arne-sommer/raku/ch-2.raku
 create mode 100755 challenge-278/arne-sommer/raku/reverse-word
 create mode 100755 challenge-278/arne-sommer/raku/sort-string

diff --git a/challenge-278/arne-sommer/blog.txt b/challenge-278/arne-sommer/blog.txt
new file mode 100644
index 0000000000..7a0547691e
--- /dev/null
+++ b/challenge-278/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/sort-of-reverse.html
diff --git a/challenge-278/arne-sommer/raku/ch-1.raku b/challenge-278/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..1eda4c5f60
--- /dev/null
+++ b/challenge-278/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($str, :v(:$verbose));
+
+my @new;
+
+for $str.words -> $shuffle
+{
+  $shuffle ~~ /(.*?)(\d+)$/;
+  my $word  = $0;
+  my $index = $1;
+
+  say ":Word '$word' at index $index { @new[$index].defined ?? 'REDEFINED' !! ''}" if $verbose;
+
+  @new[$index] = $word;
+}
+
+say @new[1 .. *].join(" ");
+# say @new.grep( *.defined ).join(" ");
diff --git a/challenge-278/arne-sommer/raku/ch-2.raku b/challenge-278/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..a3a628d92d
--- /dev/null
+++ b/challenge-278/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,7 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($word is copy, $char where $char.chars == 1);
+
+$word = $0.comb.sort.join ~ $1 if $word ~~ /(.*? $char) (.*)/;
+
+say $word;
diff --git a/challenge-278/arne-sommer/raku/reverse-word b/challenge-278/arne-sommer/raku/reverse-word
new file mode 100755
index 0000000000..a3a628d92d
--- /dev/null
+++ b/challenge-278/arne-sommer/raku/reverse-word
@@ -0,0 +1,7 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($word is copy, $char where $char.chars == 1);
+
+$word = $0.comb.sort.join ~ $1 if $word ~~ /(.*? $char) (.*)/;
+
+say $word;
diff --git a/challenge-278/arne-sommer/raku/sort-string b/challenge-278/arne-sommer/raku/sort-string
new file mode 100755
index 0000000000..1eda4c5f60
--- /dev/null
+++ b/challenge-278/arne-sommer/raku/sort-string
@@ -0,0 +1,19 @@
+#! /usr/bin/env raku
+
+unit sub MAIN ($str, :v(:$verbose));
+
+my @new;
+
+for $str.words -> $shuffle
+{
+  $shuffle ~~ /(.*?)(\d+)$/;
+  my $word  = $0;
+  my $index = $1;
+
+  say ":Word '$word' at index $index { @new[$index].defined ?? 'REDEFINED' !! ''}" if $verbose;
+
+  @new[$index] = $word;
+}
+
+say @new[1 .. *].join(" ");
+# say @new.grep( *.defined ).join(" ");
-- 
cgit