From bd3892f75b66de3637af4a00b823c1bc1bc6c194 Mon Sep 17 00:00:00 2001
From: arnesom <arne@bbop.org>
Date: Thu, 16 Nov 2023 23:11:26 +0100
Subject: Arne Sommer

---
 challenge-243/arne-sommer/blog.txt           |  1 +
 challenge-243/arne-sommer/raku/ch-1.raku     | 20 ++++++++++++++++++++
 challenge-243/arne-sommer/raku/ch-2.raku     | 20 ++++++++++++++++++++
 challenge-243/arne-sommer/raku/floor-sum     | 20 ++++++++++++++++++++
 challenge-243/arne-sommer/raku/reverse-pairs | 20 ++++++++++++++++++++
 5 files changed, 81 insertions(+)
 create mode 100644 challenge-243/arne-sommer/blog.txt
 create mode 100755 challenge-243/arne-sommer/raku/ch-1.raku
 create mode 100755 challenge-243/arne-sommer/raku/ch-2.raku
 create mode 100755 challenge-243/arne-sommer/raku/floor-sum
 create mode 100755 challenge-243/arne-sommer/raku/reverse-pairs

diff --git a/challenge-243/arne-sommer/blog.txt b/challenge-243/arne-sommer/blog.txt
new file mode 100644
index 0000000000..669b7a65fb
--- /dev/null
+++ b/challenge-243/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/reverse-floor.html
diff --git a/challenge-243/arne-sommer/raku/ch-1.raku b/challenge-243/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..62ae19b302
--- /dev/null
+++ b/challenge-243/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,20 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@nums where @nums.elems > 1 && all(@nums) ~~ Int,
+               :v(:$verbose));
+
+my $count = 0;
+
+for 0 .. @nums.end -1 -> $i
+{
+  for $i + 1 .. @nums.end -> $j
+  {
+    if @nums[$i] > 2 *@nums[$j]
+    {
+      say ": ($i, $j) => nums[$i] = @nums[$i], nums[$j] = @nums[$j], @nums[$i] > 2 * @nums[$j]" if $verbose;
+      $count++;
+    }
+  }
+}
+
+say $count;
diff --git a/challenge-243/arne-sommer/raku/ch-2.raku b/challenge-243/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..549a0fe3d0
--- /dev/null
+++ b/challenge-243/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,20 @@
+#! /usr/bin/env raku
+
+subset PosInt of Int where * > 0;
+
+unit sub MAIN (*@nums where  @nums.elems > 0 && all(@nums) ~~ PosInt,
+               :v(:$verbose));
+
+my $sum = 0;
+
+for ^@nums.elems -> $i
+{
+  for ^@nums.elems -> $j
+  {
+    my $floor = @nums[$i] div @nums[$j];
+    say ": floor(@nums[$i]/@nums[$j]) = $floor" if $verbose;
+    $sum += $floor;
+  }
+}
+
+say $sum;
diff --git a/challenge-243/arne-sommer/raku/floor-sum b/challenge-243/arne-sommer/raku/floor-sum
new file mode 100755
index 0000000000..549a0fe3d0
--- /dev/null
+++ b/challenge-243/arne-sommer/raku/floor-sum
@@ -0,0 +1,20 @@
+#! /usr/bin/env raku
+
+subset PosInt of Int where * > 0;
+
+unit sub MAIN (*@nums where  @nums.elems > 0 && all(@nums) ~~ PosInt,
+               :v(:$verbose));
+
+my $sum = 0;
+
+for ^@nums.elems -> $i
+{
+  for ^@nums.elems -> $j
+  {
+    my $floor = @nums[$i] div @nums[$j];
+    say ": floor(@nums[$i]/@nums[$j]) = $floor" if $verbose;
+    $sum += $floor;
+  }
+}
+
+say $sum;
diff --git a/challenge-243/arne-sommer/raku/reverse-pairs b/challenge-243/arne-sommer/raku/reverse-pairs
new file mode 100755
index 0000000000..62ae19b302
--- /dev/null
+++ b/challenge-243/arne-sommer/raku/reverse-pairs
@@ -0,0 +1,20 @@
+#! /usr/bin/env raku
+
+unit sub MAIN (*@nums where @nums.elems > 1 && all(@nums) ~~ Int,
+               :v(:$verbose));
+
+my $count = 0;
+
+for 0 .. @nums.end -1 -> $i
+{
+  for $i + 1 .. @nums.end -> $j
+  {
+    if @nums[$i] > 2 *@nums[$j]
+    {
+      say ": ($i, $j) => nums[$i] = @nums[$i], nums[$j] = @nums[$j], @nums[$i] > 2 * @nums[$j]" if $verbose;
+      $count++;
+    }
+  }
+}
+
+say $count;
-- 
cgit