1 files changed, 41 insertions, 0 deletions
diff --git a/challenge-139/abigail/lua/ch-2.lua b/challenge-139/abigail/lua/ch-2.lua
new file mode 100644
index 0000000000..bc970a0db1
--- /dev/null
+++ b/challenge-139/abigail/lua/ch-2.lua
@@ -0,0 +1,41 @@
+#!/opt/local/bin/lua
+
+--
+-- See ../README.md
+--
+
+--
+-- Run as: lua ch-2.lua
+--
+
+local BASE  = 10
+local COUNT =  5
+
+function is_long (number)
+    local rest = 0
+    local seen = {}
+
+    for _ = 2, number do
+        rest = (rest * BASE + BASE - 1) % number
+        if (seen [rest] ~= nil) then
+            return (0)
+        end
+        seen [rest] = 1
+    end
+
+    return (1)
+end
+
+
+local number = 1
+while COUNT > 0 do
+    number = number + 1
+    if BASE % number == 0 then
+        goto end_loop
+    end
+    if is_long (number) == 1 then
+        print (number)
+        COUNT = COUNT - 1
+    end
+    ::end_loop::
+end