Merge pull request #4447 from stuart-little/stuart-little_115_lua

1st commit on 115_lua

2 files changed, 39 insertions, 0 deletions

diff --git a/challenge-115/stuart-little/lua/ch-1.lua b/challenge-115/stuart-little/lua/ch-1.lua
new file mode 100755
index 0000000000..9e995c6791
--- /dev/null
+++ b/challenge-115/stuart-little/lua/ch-1.lua
@@ -0,0 +1,20 @@
+#!/usr/bin/env lua
+
+-- run <script> <space-separated strings>
+
+t={}
+
+for _,s in ipairs(arg) do
+   t[s:sub(1,1)] = (t[s:sub(1,1)] or 0)+1
+   t[s:sub(-1)] = (t[s:sub(-1)] or 0)-1
+end
+
+for _,v in pairs(t) do
+   if v ~= 0 then
+      print(0)
+      os.exit()
+   end
+end
+
+print((#arg < 2) and 0 or 1)
+   
diff --git a/challenge-115/stuart-little/lua/ch-2.lua b/challenge-115/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..8b73910913
--- /dev/null
+++ b/challenge-115/stuart-little/lua/ch-2.lua
@@ -0,0 +1,19 @@
+#!/usr/bin/env lua
+
+-- run <script> <space-separated digits>
+
+table.sort(arg)
+s = table.concat(arg,"")
+fst,odds,rest = s:match("(.)([13579]*)(.*)")
+
+if fst and ("02468"):find(fst) then
+   print(s:reverse())
+   os.exit()
+end
+
+if rest and rest:sub(1,1) ~= "" and ("02468"):find(rest:sub(1,1)) then
+   print(rest:sub(2):reverse() .. odds:reverse() .. fst .. rest:sub(1,1))
+   os.exit()
+end
+
+print("No even digits.")