Solution for 214 for Avery Adams

2 files changed, 22 insertions, 0 deletions

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;