From a9644809fd3f0f01bd12b315ab8115fc9db03077 Mon Sep 17 00:00:00 2001
From: Avery Adams <oldtechaa@gmail.com>
Date: Sat, 29 Apr 2023 01:10:57 +1200
Subject: Solution for 214 for Avery Adams

---
 challenge-214/avery-adams/blogs.txt    |  2 ++
 challenge-214/avery-adams/perl/ch-1.pl | 20 ++++++++++++++++++++
 2 files changed, 22 insertions(+)
 create mode 100644 challenge-214/avery-adams/blogs.txt
 create mode 100644 challenge-214/avery-adams/perl/ch-1.pl

diff --git a/challenge-214/avery-adams/blogs.txt b/challenge-214/avery-adams/blogs.txt
new file mode 100644
index 0000000000..cf8b8ad24c
--- /dev/null
+++ b/challenge-214/avery-adams/blogs.txt
@@ -0,0 +1,2 @@
+https://blogs.perl.org/users/oldtechaa/2023/04/perl-weekly-challenge-214---rank-score.html
+https://dev.to/oldtechaa/perl-weekly-challenge-214-rank-score-3n2m
diff --git a/challenge-214/avery-adams/perl/ch-1.pl b/challenge-214/avery-adams/perl/ch-1.pl
new file mode 100644
index 0000000000..444fcfca44
--- /dev/null
+++ b/challenge-214/avery-adams/perl/ch-1.pl
@@ -0,0 +1,20 @@
+#!/usr/bin/perl
+
+use strict;
+use v5.24;
+
+my @sorted = reverse sort @ARGV;
+my %hash;
+my @table = ('G', 'S', 'B');
+my $curr;
+
+foreach (@sorted) {
+    if ($curr <= 2) {
+        $hash{$_} //= $table[$curr];
+    } else {
+        $hash{$_} //= $curr + 1;
+    }
+    $curr++;
+}
+
+say $hash{$_} for @ARGV;
-- 
cgit