From 1f0aac7d81b1b1ce7b0c9b07388996a64bff10ed Mon Sep 17 00:00:00 2001
From: chirvasitua <chirvasitua@gmail.com>
Date: Thu, 15 Jul 2021 16:57:36 -0400
Subject: 1st commit on 073_lua

---
 challenge-073/stuart-little/lua/ch-1.lua | 21 +++++++++++++++++++++
 challenge-073/stuart-little/lua/ch-2.lua | 11 +++++++++++
 2 files changed, 32 insertions(+)
 create mode 100755 challenge-073/stuart-little/lua/ch-1.lua
 create mode 100755 challenge-073/stuart-little/lua/ch-2.lua

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))
-- 
cgit