challenge-152/abigail/lua/ch-1.lua


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

#!/opt/local/bin/lua

--
-- See https://theweeklychallenge.org/blog/perl-weekly-challenge-152
--

--
-- Run as: lua ch-1.lua < input-file
--

for line in io . lines () do
    local minsum = 0
    local n      = 1
    local m      = n
    local min    = 0
    for num in line : gmatch ("-?[0-9]+") do
        num = tonumber (num)
        if (m == n) or (num < min) then
            min = num
        end
        m = m - 1
        if m == 0 then
            minsum = minsum + min
            n      = n + 1
            m      = n
            min    = 0
        end
    end
    print (minsum)
end