From 05c74535ed438cd5875cff7acc9df7091c4df68a Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Wed, 26 Apr 2023 04:42:41 +0000
Subject: ch-1.raku do-over

---
 challenge-214/mark-anderson/raku/ch-1.raku | 19 +++++++++++++++++++
 1 file changed, 19 insertions(+)
 create mode 100644 challenge-214/mark-anderson/raku/ch-1.raku

diff --git a/challenge-214/mark-anderson/raku/ch-1.raku b/challenge-214/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..94051dcb01
--- /dev/null
+++ b/challenge-214/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+use Test;
+
+is rank-score(<1 2 4 3 5>),                        <5 4 S B G>;
+is rank-score(<8 5 6 7 4>),                        <G 4 B S 5>;
+is rank-score(<3 5 4 2>),                          <B G S 4>;
+is rank-score(<2 5 2 1 7 5 1>),                    <4 S 4 6 G S 6>;
+is rank-score(<22 77 11 55 77 11 22 22 11 22 22>), <4 G 9 B G 9 4 4 9 4 4>;
+
+sub rank-score($list)
+{
+    my $b = $list.Bag;
+    my @a = [\+] flat 1, $b.sort(-*.key)>>.value;
+    my %h = <1 2 3> Z=> <G S B>;
+
+    @a .= map({ %h{$_} ?? %h{$_} !! $_ });
+    %h = $b.keys.sort(-*) Z=> @a;
+    $list.map({ %h{$_} })
+}
-- 
cgit 


From 088c13928eb9de940b85234ed243f1e152df17c6 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Wed, 26 Apr 2023 10:44:02 +0000
Subject: ch-2.raku do-over

---
 challenge-214/mark-anderson/raku/ch-2.raku | 36 ++++++++++++++++++++++++++++++
 1 file changed, 36 insertions(+)
 create mode 100644 challenge-214/mark-anderson/raku/ch-2.raku

diff --git a/challenge-214/mark-anderson/raku/ch-2.raku b/challenge-214/mark-anderson/raku/ch-2.raku
new file mode 100644
index 0000000000..0908191003
--- /dev/null
+++ b/challenge-214/mark-anderson/raku/ch-2.raku
@@ -0,0 +1,36 @@
+#!/usr/bin/env raku
+use Adverb::Eject;
+use Test;
+
+is collect-points(<2 4 3 3 3 4 5 4 2>),                                23;
+is collect-points(<1 2 2 2 2 1>),                                      20;
+is collect-points(1),                                                   1;
+is collect-points(<2 2 2 1 1 2 2 2>),                                  40;
+is collect-points(<1 1 1 25 3 25 3 25 44 9 25 44 25 5 25 5 25 1 1 1>), 92;
+
+sub collect-points(*@a)
+{
+    sum gather while @a
+    {
+        my $c = @a.pairs.classify({ .value }, :as{ .key });
+        my $p = $c.first({ consecutive(.value) });
+
+        if $p
+        { 
+            @a[ $c{$p.key} ]:eject
+        }
+
+        else 
+        {
+            $p = $c.classify({ .key }, :as{ .value.elems }).minpairs.head;
+            @a[ $c{$p.key}.head ]:eject
+        }
+
+        take $p.value.elems ** 2
+    }
+}
+
+sub consecutive(@a)
+{
+    .tail - .head == .end and [<] $_ given @a 
+}
-- 
cgit 


From e9d0323937129330c7cd9b49c827a96a05ff9892 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Wed, 26 Apr 2023 11:39:28 +0000
Subject: Challenge 214 do-over (Raku)

---
 challenge-214/mark-anderson/raku/ch-1.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-214/mark-anderson/raku/ch-1.raku b/challenge-214/mark-anderson/raku/ch-1.raku
index 94051dcb01..a710eb92b6 100644
--- a/challenge-214/mark-anderson/raku/ch-1.raku
+++ b/challenge-214/mark-anderson/raku/ch-1.raku
@@ -5,7 +5,7 @@ is rank-score(<1 2 4 3 5>),                        <5 4 S B G>;
 is rank-score(<8 5 6 7 4>),                        <G 4 B S 5>;
 is rank-score(<3 5 4 2>),                          <B G S 4>;
 is rank-score(<2 5 2 1 7 5 1>),                    <4 S 4 6 G S 6>;
-is rank-score(<22 77 11 55 77 11 22 22 11 22 22>), <4 G 9 B G 9 4 4 9 4 4>;
+is rank-score(<20 76 15 55 76 15 20 20 15 20 20>), <4 G 9 B G 9 4 4 9 4 4>;
 
 sub rank-score($list)
 {
-- 
cgit 


From cbb264a59f463b98178ebefd4d04e89963098a19 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Wed, 26 Apr 2023 14:27:02 +0000
Subject: Challenge 214 (Raku) do-over

---
 challenge-214/mark-anderson/raku/ch-2.raku | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/challenge-214/mark-anderson/raku/ch-2.raku b/challenge-214/mark-anderson/raku/ch-2.raku
index 0908191003..45ec626ff2 100644
--- a/challenge-214/mark-anderson/raku/ch-2.raku
+++ b/challenge-214/mark-anderson/raku/ch-2.raku
@@ -17,16 +17,16 @@ sub collect-points(*@a)
 
         if $p
         { 
-            @a[ $c{$p.key} ]:eject
+            take $p.value.elems ** 2
         }
 
         else 
         {
             $p = $c.classify({ .key }, :as{ .value.elems }).minpairs.head;
-            @a[ $c{$p.key}.head ]:eject
+            take $p.value.Slip
         }
-
-        take $p.value.elems ** 2
+            
+        @a[ $c{$p.key} ]:eject
     }
 }
 
-- 
cgit 


From b9faa383870f302998cb57d301d3a2b496d24549 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Wed, 26 Apr 2023 15:19:36 +0000
Subject: Challenge 214 (Raku) do-over

---
 challenge-214/mark-anderson/raku/ch-1.raku | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/challenge-214/mark-anderson/raku/ch-1.raku b/challenge-214/mark-anderson/raku/ch-1.raku
index a710eb92b6..a889828098 100644
--- a/challenge-214/mark-anderson/raku/ch-1.raku
+++ b/challenge-214/mark-anderson/raku/ch-1.raku
@@ -11,9 +11,8 @@ sub rank-score($list)
 {
     my $b = $list.Bag;
     my @a = [\+] flat 1, $b.sort(-*.key)>>.value;
-    my %h = <1 2 3> Z=> <G S B>;
+    @a .= map({ <Nil G S B>[$_] || $_ });
 
-    @a .= map({ %h{$_} ?? %h{$_} !! $_ });
-    %h = $b.keys.sort(-*) Z=> @a;
+    my %h = $b.keys.sort(-*) Z=> @a;
     $list.map({ %h{$_} })
 }
-- 
cgit 


From dcdafad868a191af65f9f69060293de258b5420d Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Wed, 26 Apr 2023 15:30:31 +0000
Subject: Challenge 214 (Raku) do-over

---
 challenge-214/mark-anderson/raku/ch-1.raku | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/challenge-214/mark-anderson/raku/ch-1.raku b/challenge-214/mark-anderson/raku/ch-1.raku
index a889828098..fe4c92d8e4 100644
--- a/challenge-214/mark-anderson/raku/ch-1.raku
+++ b/challenge-214/mark-anderson/raku/ch-1.raku
@@ -11,7 +11,7 @@ sub rank-score($list)
 {
     my $b = $list.Bag;
     my @a = [\+] flat 1, $b.sort(-*.key)>>.value;
-    @a .= map({ <Nil G S B>[$_] || $_ });
+    @a .= map({ <Nil G S B>[$_] or $_ });
 
     my %h = $b.keys.sort(-*) Z=> @a;
     $list.map({ %h{$_} })
-- 
cgit 


From 1294e29fc71a9b3887b38a3650f3f274ff2464f7 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Thu, 27 Apr 2023 02:19:18 +0000
Subject: Challenge 214 (Raku) do-over

---
 challenge-214/mark-anderson/raku/ch-2.raku | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/challenge-214/mark-anderson/raku/ch-2.raku b/challenge-214/mark-anderson/raku/ch-2.raku
index 45ec626ff2..e24dd8ebf8 100644
--- a/challenge-214/mark-anderson/raku/ch-2.raku
+++ b/challenge-214/mark-anderson/raku/ch-2.raku
@@ -22,8 +22,8 @@ sub collect-points(*@a)
 
         else 
         {
-            $p = $c.classify({ .key }, :as{ .value.elems }).minpairs.head;
-            take $p.value.Slip
+            $p = $c.Bag.minpairs.head;
+            take $p.value
         }
             
         @a[ $c{$p.key} ]:eject
-- 
cgit