Challenge 209 Solutions (Raku)

1 files 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)];
         }
     }  
 }