diff options
| -rw-r--r-- | challenge-209/mark-anderson/raku/ch-2.raku | 6 |
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)]; } } } |