Lua solution for week 103, part 1

2 files changed, 46 insertions, 1 deletions

diff --git a/challenge-103/abigail/README.md b/challenge-103/abigail/README.md
index 03b5dc3a3c..8a14476af8 100644
--- a/challenge-103/abigail/README.md
+++ b/challenge-103/abigail/README.md
@@ -123,7 +123,7 @@ Output:
 ~~~~
 
 ### Solutions
-* [Lua](lua/ch-1.lua)
+* [Lua](lua/ch-2.lua)
 * [Perl](perl/ch-2.pl)
 
 ### Blog
diff --git a/challenge-103/abigail/lua/ch-1.lua b/challenge-103/abigail/lua/ch-1.lua
new file mode 100644
index 0000000000..352158ea06
--- /dev/null
+++ b/challenge-103/abigail/lua/ch-1.lua
@@ -0,0 +1,45 @@
+#!/opt/local/bin/lua
+
+--
+-- See ../README.md
+--
+
+--
+-- Run as: lua ch-1.lua < input-file
+--
+
+--
+-- We're reading years from standard input, one year per line, outputting
+-- years from the sexagenary cycle [1]. This is slightly more than what
+-- the challenge ask; the challenge asks to output the heavenly stem [2],
+-- and the earthly branch [3]. But we also output its Yin/Yang.
+--
+-- [1] https://en.wikipedia.org/wiki/Sexagenary_cycle
+-- [2] https://en.wikipedia.org/wiki/Heavenly_Stems
+-- [3] https://en.wikipedia.org/wiki/Earthly_Branches
+--
+
+--
+-- Each of the cycles have been rotated so the first entry corresponds to
+-- the year 0 in the Proleptic Gregorian calendar. (We're using the
+-- convention of having a year 0, as per ISO 8601).
+-- That way, we can just mod the year with the number of entries, without
+-- first having to subtract something from the year.
+--
+-- The heavenly stems last for 2 years, so we just duplicate the entries.
+--
+
+local yin_yang         = {"Yang",   "Yin"};
+local heavenly_stems   = {"Metal",  "Metal",   "Water", "Water",
+                          "Wood",   "Wood",    "Fire",  "Fire",
+                          "Earth",  "Earth"};
+local earthly_branches = {"Monkey", "Rooster", "Dog",   "Pig",
+                          "Rat",    "Ox",      "Tiger", "Rabbit",
+                          "Dragon", "Snake",   "Horse", "Goat"};
+
+for line in io . lines () do
+    local year = tonumber (line)
+    io . write (yin_yang         [1 + (year % #yin_yang)],         " ",
+                heavenly_stems   [1 + (year % #heavenly_stems)],   " ",
+                earthly_branches [1 + (year % #earthly_branches)], "\n")
+end