1st commit on 116_lua

2 files changed, 32 insertions, 0 deletions

diff --git a/challenge-116/stuart-little/lua/ch-1.lua b/challenge-116/stuart-little/lua/ch-1.lua
new file mode 100755
index 0000000000..810c543ce1
--- /dev/null
+++ b/challenge-116/stuart-little/lua/ch-1.lua
@@ -0,0 +1,23 @@
+#!/usr/bin/env lua
+
+-- run <script> <number>
+
+function canSplit(lrg,sml)
+   rest = lrg:match(sml .. "(.*)")
+   if not rest then
+      return nil
+   end
+   if lrg == sml then
+      return lrg
+   end
+   nextIt = canSplit(rest,("%d"):format(sml+1))
+   return nextIt and sml .. ", " .. nextIt or nil
+end
+
+for i=1,arg[1]:len() do
+   res = canSplit(arg[1],arg[1]:sub(1,i))
+   if res then
+      print(res)
+      os.exit()
+   end
+end
diff --git a/challenge-116/stuart-little/lua/ch-2.lua b/challenge-116/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..75ac587ae2
--- /dev/null
+++ b/challenge-116/stuart-little/lua/ch-2.lua
@@ -0,0 +1,9 @@
+#!/usr/bin/env lua
+
+-- run <script> <number>
+
+sm=0
+for i = 1,arg[1]:len() do
+   sm = sm + arg[1]:sub(i,i)^2
+end
+print(math.sqrt(sm) == math.floor(math.sqrt(sm)) and 1 or 0)