aboutsummaryrefslogtreecommitdiff
path: root/challenge-073/stuart-little/lua/ch-1.lua
blob: 452c6f73c0aceb8ae12b563994d59468901c64f5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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]))))