From 7e7b56db42ceb8d2b8973eae678fa4b58d5d3659 Mon Sep 17 00:00:00 2001
From: Jesse Luehrs <doy@tozt.net>
Date: Wed, 13 May 2009 23:32:40 -0500
Subject: add old solutions

---
 5.lua | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)
 create mode 100644 5.lua

(limited to '5.lua')

diff --git a/5.lua b/5.lua
new file mode 100644
index 0000000..b407475
--- /dev/null
+++ b/5.lua
@@ -0,0 +1,21 @@
+local max_factors = {}
+for _, prime in ipairs({2, 3, 5, 7, 11, 13, 17, 19}) do
+    for i = prime, 20, prime do
+        local num_fact = 0
+        local tmp = i
+        while i % prime == 0 do
+            num_fact = num_fact + 1
+            i = i / prime
+        end
+        if num_fact > (max_factors[prime] or 0) then
+            max_factors[prime] = num_fact
+        end
+    end
+end
+
+local total = 1
+for prime, power in pairs(max_factors) do
+    total = total * prime^power
+end
+
+print(total)
-- 
cgit v1.2.3-54-g00ecf