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