Merge pull request #4527 from stuart-little/stuart-little_073_lua

1st commit on 073_lua

2 files changed, 32 insertions, 0 deletions

diff --git a/challenge-073/stuart-little/lua/ch-1.lua b/challenge-073/stuart-little/lua/ch-1.lua
new file mode 100755
index 0000000000..452c6f73c0
--- /dev/null
+++ b/challenge-073/stuart-little/lua/ch-1.lua
@@ -0,0 +1,21 @@
+#!/usr/bin/env lua
+
+-- run <script> <space-separated numbers, with the window size first>
+
+function slide(fn,t,k)
+   local out={}
+   for i=1,#t-k+1 do
+      table.insert(out,fn(table.unpack(t,i,i+k-1)))
+   end
+   return out
+end
+
+function map(fn,t)
+   local out={}
+   for _,v in ipairs(t) do
+      table.insert(out,fn(v))
+   end
+   return out
+end
+
+print(table.unpack(slide(math.min,map(tonumber,table.pack(table.unpack(arg,2))),tonumber(arg[1]))))
diff --git a/challenge-073/stuart-little/lua/ch-2.lua b/challenge-073/stuart-little/lua/ch-2.lua
new file mode 100755
index 0000000000..6b86f6e4e8
--- /dev/null
+++ b/challenge-073/stuart-little/lua/ch-2.lua
@@ -0,0 +1,11 @@
+#!/usr/bin/env lua
+
+-- run <script> <space-separated numbers>
+
+local out,run={}
+for k,v in ipairs(arg) do
+   table.insert(out,(((not run) and 0) or (tonumber(v)<=run and 0) or (run)))
+   run=run and run <= tonumber(v) and run or tonumber(v)
+end
+
+print(table.unpack(out))