challenge-139/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

#!/opt/local/bin/lua

--
-- See ../README.md
--

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

for line in io . lines () do
    local sorted = 1
    local prev   = nil
    for next in line : gmatch ("[0-9]+") do
        if prev ~= nil and prev > next then
            sorted = 0
        end
        prev = next
    end
    print (sorted)
end