Merge pull request #7985 from andemark/challenge-214-Raku

Challenge 214 raku

1 files changed, 8 insertions, 4 deletions

diff --git a/challenge-214/mark-anderson/raku/ch-1.raku b/challenge-214/mark-anderson/raku/ch-1.raku
index fe4c92d8e4..149a1ee75e 100644
--- a/challenge-214/mark-anderson/raku/ch-1.raku
+++ b/challenge-214/mark-anderson/raku/ch-1.raku
@@ -7,12 +7,16 @@ 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(<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)
+multi rank-score($list where .elems == 1) { 'G' }
+
+multi rank-score($list)
 {
     my $b = $list.Bag;
-    my @a = [\+] flat 1, $b.sort(-*.key)>>.value;
-    @a .= map({ <Nil G S B>[$_] or $_ });
+    my @k = $b.keys.sort(-*);
+    my @v = [\+] flat 1, $b{@k};
+
+    @v[^3] .= map({ <Nil G S B>[$_] or $_ });
+    my %h = @k Z=> @v;
 
-    my %h = $b.keys.sort(-*) Z=> @a;
     $list.map({ %h{$_} })
 }