From 92bd65c37f74a0e4072a3db26dc1356fee44188a Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 21 Nov 2022 10:40:38 +0000
Subject: Initial 192 (Raku)

---
 challenge-192/mark-anderson/raku/ch-1.raku | 11 +++++++++
 challenge-192/mark-anderson/raku/ch-2.raku | 39 ++++++++++++++++++++++++++++++
 2 files changed, 50 insertions(+)
 create mode 100644 challenge-192/mark-anderson/raku/ch-1.raku
 create mode 100644 challenge-192/mark-anderson/raku/ch-2.raku

diff --git a/challenge-192/mark-anderson/raku/ch-1.raku b/challenge-192/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..1bdde74046
--- /dev/null
+++ b/challenge-192/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#!/usr/bin/env raku
+use Test;
+
+is binary-flip(5), 2;
+is binary-flip(4), 3;
+is binary-flip(6), 1;
+
+sub binary-flip($n)
+{
+    (1 x $n.base(2).chars).parse-base(2) +^ $n;
+}
diff --git a/challenge-192/mark-anderson/raku/ch-2.raku b/challenge-192/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..25c27e2254
--- /dev/null
+++ b/challenge-192/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,39 @@
+#!/usr/bin/env raku
+use Test;
+
+is equal-distribution(< 1 0 5 >),     4;
+is equal-distribution(< 0 2 0 >),    -1;
+is equal-distribution(< 0 3 0 >),     2;
+is equal-distribution(< 1 0 2 5 7 >), 17;
+is equal-distribution(< 1 0 5 2 7 >), 14;
+is equal-distribution([1..101]),      85850;
+is equal-distribution([101...1]),     85850;
+
+# Please see the solution from James Smith (drbaggy)
+# Mine is more complicated than it needs to be 🤷  
+
+sub equal-distribution(*@a)
+{
+    my $avg = @a.sum / @a.elems;
+    return -1 unless $avg.narrow ~~ Int;
+
+    my ($min-ptr, $max-ptr, $moves) = 0 xx 3;
+     
+    loop
+    {
+        my $min = @a[$min-ptr..@a.end].first(* < $avg, :p);
+        my $max = @a[$max-ptr..@a.end].first(* > $avg, :p);
+
+        return $moves unless $min|$max;
+
+        my $amt = min($avg - $min.value, $max.value - $avg);
+
+        @a[$min-ptr..@a.end][$min.key] += $amt;
+        @a[$max-ptr..@a.end][$max.key] -= $amt;
+
+        $min-ptr += $min.key;
+        $max-ptr += $max.key;
+
+        $moves += abs($max-ptr - $min-ptr) * $amt;
+    }
+} 
-- 
cgit 


From 76d541d487e55adde0e3f1ead7a39bbf0f9c029b Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Mon, 21 Nov 2022 14:48:11 +0000
Subject: Challenge 192 Solutions (Raku)

---
 challenge-192/mark-anderson/raku/ch-1.raku |  3 ++-
 challenge-192/mark-anderson/raku/ch-2.raku | 28 +++++++++-------------------
 2 files changed, 11 insertions(+), 20 deletions(-)

diff --git a/challenge-192/mark-anderson/raku/ch-1.raku b/challenge-192/mark-anderson/raku/ch-1.raku
index 1bdde74046..866743e8e7 100644
--- a/challenge-192/mark-anderson/raku/ch-1.raku
+++ b/challenge-192/mark-anderson/raku/ch-1.raku
@@ -7,5 +7,6 @@ is binary-flip(6), 1;
 
 sub binary-flip($n)
 {
-    (1 x $n.base(2).chars).parse-base(2) +^ $n;
+    #(1 x $n.base(2).chars).parse-base(2) +^ $n
+    $n.base(2).trans('01' => '10').parse-base(2)
 }
diff --git a/challenge-192/mark-anderson/raku/ch-2.raku b/challenge-192/mark-anderson/raku/ch-2.raku
index 25c27e2254..d236b2cf94 100644
--- a/challenge-192/mark-anderson/raku/ch-2.raku
+++ b/challenge-192/mark-anderson/raku/ch-2.raku
@@ -9,31 +9,21 @@ is equal-distribution(< 1 0 5 2 7 >), 14;
 is equal-distribution([1..101]),      85850;
 is equal-distribution([101...1]),     85850;
 
-# Please see the solution from James Smith (drbaggy)
-# Mine is more complicated than it needs to be 🤷  
+# Thanks to scimon, drbaggy, and others for simplifying this for me :)
 
 sub equal-distribution(*@a)
 {
     my $avg = @a.sum / @a.elems;
     return -1 unless $avg.narrow ~~ Int;
+    my $moves;
 
-    my ($min-ptr, $max-ptr, $moves) = 0 xx 3;
-     
-    loop
+    for @a.rotor(2 => -1)
     {
-        my $min = @a[$min-ptr..@a.end].first(* < $avg, :p);
-        my $max = @a[$max-ptr..@a.end].first(* > $avg, :p);
-
-        return $moves unless $min|$max;
-
-        my $amt = min($avg - $min.value, $max.value - $avg);
-
-        @a[$min-ptr..@a.end][$min.key] += $amt;
-        @a[$max-ptr..@a.end][$max.key] -= $amt;
-
-        $min-ptr += $min.key;
-        $max-ptr += $max.key;
-
-        $moves += abs($max-ptr - $min-ptr) * $amt;
+         my $n  = $avg - .[0];
+        .[0]   += $n;
+        .[1]   -= $n;
+        $moves += abs($n)
     }
+ 
+    $moves
 } 
-- 
cgit