Merge pull request #4534 from stuart-little/stuart-little_072_lua

1st commit on 072_lua

2 files changed, 30 insertions, 0 deletions

diff --git a/challenge-072/stuart-little/lua/ch-1.lua b/challenge-072/stuart-little/lua/ch-1.lua
new file mode 100755
index 0000000000..0515cf6461
--- /dev/null
+++ b/challenge-072/stuart-little/lua/ch-1.lua
@@ -0,0 +1,14 @@
+#!/usr/bin/env lua
+
+-- run <script> <number>
+
+function factExp(n,p)
+   local s,frct=0,n/p
+   while frct >= 1 do
+      s=s+math.floor(frct)
+      frct=frct/p
+   end
+   return s
+end
+
+print(math.min(factExp(arg[1],2),factExp(arg[1],5)))
diff --git a/challenge-072/stuart-little/lua/ch-2.lua b/challenge-072/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..9c7d4bb302
--- /dev/null
+++ b/challenge-072/stuart-little/lua/ch-2.lua
@@ -0,0 +1,16 @@
+#!/usr/bin/env lua
+
+-- run <script> <file 1st-line-nr 2nd-line-nr>
+
+function lnRng(pth,l1,l2)
+   local ix,lns=0,{}
+   for l in io.lines(pth) do
+      ix=ix+1
+      if ix>=l1 and ix<=l2 then table.insert(lns,l) end
+   end
+   return lns
+end
+
+for _,l in ipairs(lnRng(arg[1],tonumber(arg[2]),tonumber(arg[3]))) do
+   print(l)
+end