From 9e2eb3e4ae058c514b13cd463b455238e0de6eef Mon Sep 17 00:00:00 2001
From: boblied <boblied@gmail.com>
Date: Tue, 9 Mar 2021 08:22:02 -0600
Subject: PWC 103, Task 1, Chinese Zodiac

---
 challenge-103/bob-lied/README       |  4 ++--
 challenge-103/bob-lied/perl/ch-1.pl | 41 +++++++++++++++++++++++++++++++++++++
 2 files changed, 43 insertions(+), 2 deletions(-)
 create mode 100755 challenge-103/bob-lied/perl/ch-1.pl

diff --git a/challenge-103/bob-lied/README b/challenge-103/bob-lied/README
index 5d63db13d1..8417e3a7f7 100644
--- a/challenge-103/bob-lied/README
+++ b/challenge-103/bob-lied/README
@@ -1,3 +1,3 @@
-Solutions to weekly challenge 102 by Bob Lied.
+Solutions to weekly challenge 103 by Bob Lied.
 
-https://perlweeklychallenge.org/blog/perl-weekly-challenge-102/
+https://perlweeklychallenge.org/blog/perl-weekly-challenge-103/
diff --git a/challenge-103/bob-lied/perl/ch-1.pl b/challenge-103/bob-lied/perl/ch-1.pl
new file mode 100755
index 0000000000..80ea20934b
--- /dev/null
+++ b/challenge-103/bob-lied/perl/ch-1.pl
@@ -0,0 +1,41 @@
+#!/usr/bin/env perl
+# vim:set ts=4 sw=4 sts=4 et ai wm=0 nu:
+#=============================================================================
+# ch-1.pl
+#=============================================================================
+# Copyright (c) 2021, Bob Lied
+#=============================================================================
+# Perl Weekly Challenge 103, TASK #1 › Chinese Zodiac
+#
+# You are given a year $year.
+# Write a script to determine the Chinese Zodiac for the given year $year.
+# Please check out wikipage for more information about it.
+#
+# The animal cycle: Rat, Ox, Tiger, Rabbit, Dragon, Snake, Horse, Goat, Monkey,
+# Rooster, Dog, Pig.
+# The element cycle: Wood, Fire, Earth, Metal, Water.
+#
+# Example 1: Input: 2017    Output: Fire Rooster
+# Example 2: Input: 1938    Output: Earth Tiger
+#=============================================================================
+
+use strict;
+use warnings;
+use 5.020;
+
+use experimental qw/signatures/;
+
+my @AnimalCycle = qw( Rat Ox Tiger Rabbit Dragon Snake Horse Goat Monkey Rooster Dog Pig );
+my @ElementCycle = qw( Wood Wood Fire Fire Earth Earth Metal Metal Water Water );
+
+my $BaseYear = 1924;
+
+my $year = shift;
+die "Usage: $0 YEAR\n" unless $year;
+
+my $relativeYear = $year - $BaseYear;
+
+my  $animal = $relativeYear % @AnimalCycle;
+my $element = $relativeYear % @ElementCycle;
+
+say "$ElementCycle[$element] $AnimalCycle[$animal]";
-- 
cgit