From 284c2b7d28928a733a627fe213ff719cd3ff4e10 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Wed, 22 Mar 2023 21:22:19 +0000
Subject: Challenge 209 Solutions (Raku)

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

diff --git a/challenge-209/mark-anderson/raku/ch-2.raku b/challenge-209/mark-anderson/raku/ch-2.raku
index dbe3f6efda..b84ffb5aae 100644
--- a/challenge-209/mark-anderson/raku/ch-2.raku
+++ b/challenge-209/mark-anderson/raku/ch-2.raku
@@ -51,15 +51,13 @@ sub merge-accounts(@accounts)
 
     .Array given gather for @a.sort(*.key)  
     {
-        my $key   = .key;
         my @value = .value>>.Array;
 
-        while @value
+        while @value.shift -> @v
         {
-             my @v := @value.shift;
              my $k = @value.first({ $_ (&) @v }, :k);
              $k.defined ?? (@value[$k] = [(@value[$k] (|) @v).keys]) 
-                        !! take [($key, @v.sort.Slip)];
+                        !! take [(.key, @v.sort.Slip)];
         }
     }  
 }
-- 
cgit