From 2f55605744f18b3927997e6a020815d4cec97e75 Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Sun, 30 Apr 2023 07:13:42 +0000
Subject: ch-1.raku touch-up

---
 challenge-214/mark-anderson/raku/ch-1.raku | 12 ++++++++----
 challenge-214/mark-anderson/raku/tst.raku  | 16 ++++++++++++++++
 2 files changed, 24 insertions(+), 4 deletions(-)
 create mode 100644 challenge-214/mark-anderson/raku/tst.raku

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{$_} })
 }
diff --git a/challenge-214/mark-anderson/raku/tst.raku b/challenge-214/mark-anderson/raku/tst.raku
new file mode 100644
index 0000000000..7929a76036
--- /dev/null
+++ b/challenge-214/mark-anderson/raku/tst.raku
@@ -0,0 +1,16 @@
+#!/usr/bin/env raku
+use Test;
+
+say rank-score(<20 76 15 55 76 15 20 20 15 20 20>);
+
+sub rank-score($list)
+{
+    my $b = $list.Bag;
+    my @k = $b.keys.sort(-*);
+    my @v = [\+] flat 1, $b{@k};
+
+    @v[^3] .= map({ <Nil G S B>[$_] or $_ });
+    my %h = @k Z=> @v;
+
+    $list.map({ %h{$_} })
+}
-- 
cgit 


From 23598bd553adbdbb7454be84f8754936b53bcdfc Mon Sep 17 00:00:00 2001
From: Mark <53903062+andemark@users.noreply.github.com>
Date: Sun, 30 Apr 2023 07:15:49 +0000
Subject: ch-1.raku touch-up

---
 challenge-214/mark-anderson/raku/tst.raku | 16 ----------------
 1 file changed, 16 deletions(-)
 delete mode 100644 challenge-214/mark-anderson/raku/tst.raku

diff --git a/challenge-214/mark-anderson/raku/tst.raku b/challenge-214/mark-anderson/raku/tst.raku
deleted file mode 100644
index 7929a76036..0000000000
--- a/challenge-214/mark-anderson/raku/tst.raku
+++ /dev/null
@@ -1,16 +0,0 @@
-#!/usr/bin/env raku
-use Test;
-
-say rank-score(<20 76 15 55 76 15 20 20 15 20 20>);
-
-sub rank-score($list)
-{
-    my $b = $list.Bag;
-    my @k = $b.keys.sort(-*);
-    my @v = [\+] flat 1, $b{@k};
-
-    @v[^3] .= map({ <Nil G S B>[$_] or $_ });
-    my %h = @k Z=> @v;
-
-    $list.map({ %h{$_} })
-}
-- 
cgit