From 44428bdd90a3c5d780a33cdd8c506b8e219d2ba7 Mon Sep 17 00:00:00 2001
From: arnesom <arne@bbop.org>
Date: Sun, 4 Dec 2022 23:59:53 +0100
Subject: Arne Sommer

---
 challenge-193/arne-sommer/blog.txt                |  1 +
 challenge-193/arne-sommer/raku/binary-string-loop | 18 +++++++++++++++
 challenge-193/arne-sommer/raku/binary-string-map  |  5 +++++
 challenge-193/arne-sommer/raku/ch-1.raku          |  5 +++++
 challenge-193/arne-sommer/raku/ch-2.raku          | 27 +++++++++++++++++++++++
 challenge-193/arne-sommer/raku/odd-string         | 27 +++++++++++++++++++++++
 6 files changed, 83 insertions(+)
 create mode 100644 challenge-193/arne-sommer/blog.txt
 create mode 100755 challenge-193/arne-sommer/raku/binary-string-loop
 create mode 100755 challenge-193/arne-sommer/raku/binary-string-map
 create mode 100755 challenge-193/arne-sommer/raku/ch-1.raku
 create mode 100755 challenge-193/arne-sommer/raku/ch-2.raku
 create mode 100755 challenge-193/arne-sommer/raku/odd-string

diff --git a/challenge-193/arne-sommer/blog.txt b/challenge-193/arne-sommer/blog.txt
new file mode 100644
index 0000000000..53f2294e2e
--- /dev/null
+++ b/challenge-193/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/abundance-strings.html
diff --git a/challenge-193/arne-sommer/raku/binary-string-loop b/challenge-193/arne-sommer/raku/binary-string-loop
new file mode 100755
index 0000000000..1eb4ad03f6
--- /dev/null
+++ b/challenge-193/arne-sommer/raku/binary-string-loop
@@ -0,0 +1,18 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $n where $n > 0);
+
+my $decimal = 0;
+
+my @binary;
+
+loop
+{
+  my $binary = $decimal.fmt('%0' ~ $n ~ 'b');
+  last if $binary.chars > $n;
+
+  @binary.push: $binary;
+  $decimal++;
+}
+
+say @binary.join(", "); 
\ No newline at end of file
diff --git a/challenge-193/arne-sommer/raku/binary-string-map b/challenge-193/arne-sommer/raku/binary-string-map
new file mode 100755
index 0000000000..b39910911d
--- /dev/null
+++ b/challenge-193/arne-sommer/raku/binary-string-map
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $n where $n > 0);
+
+say (0 .. (1 x $n).parse-base(2)).map( *.fmt('%0' ~ $n ~ 'b') ).join(", ");
diff --git a/challenge-193/arne-sommer/raku/ch-1.raku b/challenge-193/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..b39910911d
--- /dev/null
+++ b/challenge-193/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $n where $n > 0);
+
+say (0 .. (1 x $n).parse-base(2)).map( *.fmt('%0' ~ $n ~ 'b') ).join(", ");
diff --git a/challenge-193/arne-sommer/raku/ch-2.raku b/challenge-193/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..f289c680ed
--- /dev/null
+++ b/challenge-193/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,27 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@s where ( [==] @s>>.chars), :v(:$verbose));
+
+my %diff;
+
+for @s -> $string
+{
+  my @letters = $string.comb;
+  my @diff;
+  my $first;
+  my $second = @letters.shift;
+  while (@letters.elems) {
+    my $first = $second;
+    $second = @letters.shift;
+    my $diff = $second.ord - $first.ord;
+    @diff.push: $diff;
+  }
+
+  %diff{ @diff.join: " " }.push: $string;
+  say ": $string -> @diff[]" if $verbose;
+}
+
+say ":" ~ %diff.raku if $verbose;
+
+say %diff.grep({ $_.value.elems == 1 }).map( *.value ).Str;
+
diff --git a/challenge-193/arne-sommer/raku/odd-string b/challenge-193/arne-sommer/raku/odd-string
new file mode 100755
index 0000000000..f289c680ed
--- /dev/null
+++ b/challenge-193/arne-sommer/raku/odd-string
@@ -0,0 +1,27 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@s where ( [==] @s>>.chars), :v(:$verbose));
+
+my %diff;
+
+for @s -> $string
+{
+  my @letters = $string.comb;
+  my @diff;
+  my $first;
+  my $second = @letters.shift;
+  while (@letters.elems) {
+    my $first = $second;
+    $second = @letters.shift;
+    my $diff = $second.ord - $first.ord;
+    @diff.push: $diff;
+  }
+
+  %diff{ @diff.join: " " }.push: $string;
+  say ": $string -> @diff[]" if $verbose;
+}
+
+say ":" ~ %diff.raku if $verbose;
+
+say %diff.grep({ $_.value.elems == 1 }).map( *.value ).Str;
+
-- 
cgit