ch-1.raku do-over

1 files changed, 19 insertions, 0 deletions

diff --git a/challenge-214/mark-anderson/raku/ch-1.raku b/challenge-214/mark-anderson/raku/ch-1.raku
new file mode 100644
index 0000000000..94051dcb01
--- /dev/null
+++ b/challenge-214/mark-anderson/raku/ch-1.raku
@@ -0,0 +1,19 @@
+#!/usr/bin/env raku
+use Test;
+
+is rank-score(<1 2 4 3 5>),                        <5 4 S B G>;
+is rank-score(<8 5 6 7 4>),                        <G 4 B S 5>;
+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(<22 77 11 55 77 11 22 22 11 22 22>), <4 G 9 B G 9 4 4 9 4 4>;
+
+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({ %h{$_} ?? %h{$_} !! $_ });
+    %h = $b.keys.sort(-*) Z=> @a;
+    $list.map({ %h{$_} })
+}