From 0b93e274674688f3ae6702e168b0e0391c4a5bf5 Mon Sep 17 00:00:00 2001
From: Abigail <abigail@abigail.freedom.nl>
Date: Sat, 15 Jan 2022 19:47:06 +0100
Subject: Week 147: Lua solutions

---
 challenge-147/abigail/lua/ch-2.lua | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 challenge-147/abigail/lua/ch-2.lua

(limited to 'challenge-147/abigail/lua/ch-2.lua')

diff --git a/challenge-147/abigail/lua/ch-2.lua b/challenge-147/abigail/lua/ch-2.lua
new file mode 100644
index 0000000000..1d93585f24
--- /dev/null
+++ b/challenge-147/abigail/lua/ch-2.lua
@@ -0,0 +1,29 @@
+#!/opt/local/bin/lua
+
+--
+-- See https://theweeklychallenge.org/blog/perl-weekly-challenge-147
+--
+
+--
+-- Run as: lua ch-2.lua
+--
+
+pentagon = {}
+p = 0
+n = 0
+
+while true do
+    p = p + n + n + n + 1
+    n = n + 1
+    pentagon [p] = 1
+    for seen in pairs (pentagon) do
+        if seen + seen <= p and pentagon [p - seen]        ~= nil
+                            and pentagon [p - seen - seen] ~= nil then
+            print (seen .. " " .. (p - seen))
+            goto end_of_while
+        end
+    end
+end
+
+::end_of_while:: 
+
-- 
cgit