Merge remote-tracking branch 'upstream/master'

2 files changed, 93 insertions, 0 deletions

diff --git a/challenge-149/abigail/lua/ch-1.lua b/challenge-149/abigail/lua/ch-1.lua
new file mode 100644
index 0000000000..156a02cdf3
--- /dev/null
+++ b/challenge-149/abigail/lua/ch-1.lua
@@ -0,0 +1,49 @@
+#!/opt/local/bin/lua
+
+--
+-- See https://theweeklychallenge.org/blog/perl-weekly-challenge-149
+--
+
+--
+-- Run as: lua ch-1.lua < input-file
+--
+
+function digit_sum (number)
+    local sum = 0
+    while number > 0 do
+        sum = sum + number % 10
+        number = math . floor (number / 10)
+    end
+    return (sum)
+end
+
+fib            = {}
+fib_prev       = 0
+fib_last       = 1
+fib [fib_prev] = 1
+fib [fib_last] = 1
+
+function is_fib (n)
+    while fib_last < n do
+        local t  = fib_last
+        fib_last = fib_last + fib_prev
+        fib_prev = t
+        fib [fib_last] = 1
+    end
+
+    return fib [n]
+end
+
+
+for n in io . lines () do
+    n = tonumber (n)
+    k = 0
+    while n > 0 do
+        if is_fib (digit_sum (k)) then
+            io . write (k .. " ")
+            n = n - 1
+        end
+        k = k + 1
+    end
+    print ("")
+end
diff --git a/challenge-149/abigail/lua/ch-2.lua b/challenge-149/abigail/lua/ch-2.lua
new file mode 100644
index 0000000000..113f83a203
--- /dev/null
+++ b/challenge-149/abigail/lua/ch-2.lua
@@ -0,0 +1,44 @@
+#!/opt/local/bin/lua
+
+--
+-- See https://theweeklychallenge.org/blog/perl-weekly-challenge-149
+--
+
+--
+-- Run as: lua ch-2.lua < input-file
+--
+
+A287298 = {}
+
+A287298 [ 2] =                         "1"
+A287298 [ 3] =                         "1"
+A287298 [ 4] =                      "3201"
+A287298 [ 5] =                      "4301"
+A287298 [ 6] =                    "452013"
+A287298 [ 7] =                   "6250341"
+A287298 [ 8] =                  "47302651"
+A287298 [ 9] =                 "823146570"
+A287298 [10] =                "9814072356"
+A287298 [11] =               "A8701245369"
+A287298 [12] =              "B8750A649321"
+A287298 [13] =              "CBA504216873"
+A287298 [14] =            "DC71B30685A924"
+A287298 [15] =           "EDAC93B24658701"
+A287298 [16] =          "FED5B39A42706C81"
+A287298 [17] =          "GFED5A31C6B79802"
+A287298 [18] =        "HGF80ADC53712EB649"
+A287298 [19] =       "IHGFD3408C6E715A2B9"
+A287298 [20] =      "JIHG03DAC457BFE96281"
+A287298 [22] =    "LKJIG5D14B9032FHAC867E"
+A287298 [23] =   "MLKJEFG5IC1D9H8042AB376"
+A287298 [24] =  "NMLKJ2BD0639GFE7C8IH5A41"
+A287298 [25] = "ONMLKD8CJE2H47F6395I0B1AG"
+
+for n in io . lines () do
+    n = tonumber (n)
+    if A287298 [n] == nil then
+        print "Too hard to calculate"
+    else
+        print (A287298 [n])
+    end
+end