From b2f57d8f8f8ac453f3b6ec39acbff67e6deea654 Mon Sep 17 00:00:00 2001
From: arnesom <arne@bbop.org>
Date: Sat, 14 Jan 2023 21:02:47 +0100
Subject: Arne Sommer

---
 challenge-199/arne-sommer/blog.txt            |  1 +
 challenge-199/arne-sommer/raku/ch-1.raku      |  5 +++++
 challenge-199/arne-sommer/raku/ch-2.raku      | 24 ++++++++++++++++++++++++
 challenge-199/arne-sommer/raku/good-pairs     | 16 ++++++++++++++++
 challenge-199/arne-sommer/raku/good-pairs-map |  5 +++++
 challenge-199/arne-sommer/raku/good-triplets  | 24 ++++++++++++++++++++++++
 6 files changed, 75 insertions(+)
 create mode 100644 challenge-199/arne-sommer/blog.txt
 create mode 100755 challenge-199/arne-sommer/raku/ch-1.raku
 create mode 100755 challenge-199/arne-sommer/raku/ch-2.raku
 create mode 100755 challenge-199/arne-sommer/raku/good-pairs
 create mode 100755 challenge-199/arne-sommer/raku/good-pairs-map
 create mode 100755 challenge-199/arne-sommer/raku/good-triplets

diff --git a/challenge-199/arne-sommer/blog.txt b/challenge-199/arne-sommer/blog.txt
new file mode 100644
index 0000000000..dbab4154cb
--- /dev/null
+++ b/challenge-199/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/twice-as-good.html
diff --git a/challenge-199/arne-sommer/raku/ch-1.raku b/challenge-199/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..4f1e7cf383
--- /dev/null
+++ b/challenge-199/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@list where @list.elems > 0 && all(@list) ~~ /^<[0..9]>*$/);
+
+say @list.Bag.values.map({ (" " xx $_).combinations(2).elems }).sum;
diff --git a/challenge-199/arne-sommer/raku/ch-2.raku b/challenge-199/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..5eb5e7da9c
--- /dev/null
+++ b/challenge-199/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,24 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $x, Int $y, Int $z, *@array where @array.elems > 0 && all(@array) ~~ /^<[0..9]>*$/, :v(:$verbose));
+
+my $triplets = 0;
+
+for 0 .. @array.end - 2 -> $i
+{
+  for $i + 1 .. @array.end - 1 -> $j
+  {
+    for $j + 1 .. @array.end -> $k
+    {
+      next unless abs(@array[$i] - @array[$j]) <= $x;
+      next unless abs(@array[$j] - @array[$k]) <= $y;
+      next unless abs(@array[$i] - @array[$k]) <= $z;
+
+      $triplets++;
+
+      say ": (@array[$i, $j, $k]) where (i=$i, j=$j, k=$k)" if $verbose;
+    }
+  }
+}
+
+say $triplets;
diff --git a/challenge-199/arne-sommer/raku/good-pairs b/challenge-199/arne-sommer/raku/good-pairs
new file mode 100755
index 0000000000..9029ac2a89
--- /dev/null
+++ b/challenge-199/arne-sommer/raku/good-pairs
@@ -0,0 +1,16 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@list where @list.elems > 0 && all(@list) ~~ /^<[0..9]>*$/, :v(:$verbose));
+
+my $bag = @list>>.Int.Bag;
+
+say ": { $bag.raku }" if $verbose;
+
+my $total = 0;
+
+for $bag.values -> $count
+{
+  $total += (" " xx $count).combinations(2).elems;
+}
+
+say $total;
diff --git a/challenge-199/arne-sommer/raku/good-pairs-map b/challenge-199/arne-sommer/raku/good-pairs-map
new file mode 100755
index 0000000000..4f1e7cf383
--- /dev/null
+++ b/challenge-199/arne-sommer/raku/good-pairs-map
@@ -0,0 +1,5 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@list where @list.elems > 0 && all(@list) ~~ /^<[0..9]>*$/);
+
+say @list.Bag.values.map({ (" " xx $_).combinations(2).elems }).sum;
diff --git a/challenge-199/arne-sommer/raku/good-triplets b/challenge-199/arne-sommer/raku/good-triplets
new file mode 100755
index 0000000000..5eb5e7da9c
--- /dev/null
+++ b/challenge-199/arne-sommer/raku/good-triplets
@@ -0,0 +1,24 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (Int $x, Int $y, Int $z, *@array where @array.elems > 0 && all(@array) ~~ /^<[0..9]>*$/, :v(:$verbose));
+
+my $triplets = 0;
+
+for 0 .. @array.end - 2 -> $i
+{
+  for $i + 1 .. @array.end - 1 -> $j
+  {
+    for $j + 1 .. @array.end -> $k
+    {
+      next unless abs(@array[$i] - @array[$j]) <= $x;
+      next unless abs(@array[$j] - @array[$k]) <= $y;
+      next unless abs(@array[$i] - @array[$k]) <= $z;
+
+      $triplets++;
+
+      say ": (@array[$i, $j, $k]) where (i=$i, j=$j, k=$k)" if $verbose;
+    }
+  }
+}
+
+say $triplets;
-- 
cgit