diff options
Diffstat (limited to 'challenge-152/abigail/lua/ch-1.lua')
| -rw-r--r-- | challenge-152/abigail/lua/ch-1.lua | 30 |
1 files changed, 30 insertions, 0 deletions
diff --git a/challenge-152/abigail/lua/ch-1.lua b/challenge-152/abigail/lua/ch-1.lua new file mode 100644 index 0000000000..eb0579ee47 --- /dev/null +++ b/challenge-152/abigail/lua/ch-1.lua @@ -0,0 +1,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 |