Merge pull request #9080 from arnesom/branch-for-challenge-243

Arne Sommer

5 files changed, 81 insertions, 0 deletions

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;