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

1st commit on 073_lua

1 files changed, 21 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]))))