ch-1.raku touch-up

1 files changed, 0 insertions, 16 deletions

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{$_} })
-}