123 lines
2.5 KiB
Lua
123 lines
2.5 KiB
Lua
-- see if the file exists
|
|
local function file_exists(file)
|
|
local f = io.open(file, "rb")
|
|
if f then
|
|
f:close()
|
|
end
|
|
return f ~= nil
|
|
end
|
|
|
|
-- get all lines from a file, returns an empty
|
|
-- list/table if the file does not exist
|
|
local function lines_from(file)
|
|
if not file_exists(file) then
|
|
return {}
|
|
end
|
|
local lines = {}
|
|
for line in io.lines(file) do
|
|
lines[#lines + 1] = line
|
|
end
|
|
return lines
|
|
end
|
|
|
|
local function splitstr(inputstr, sep)
|
|
if sep == nil then
|
|
sep = "%s"
|
|
end
|
|
local t = {}
|
|
for str in string.gmatch(inputstr, "([^" .. sep .. "]+)") do
|
|
t[#t + 1] = str
|
|
end
|
|
return t
|
|
end
|
|
|
|
-- tests the functions above
|
|
local file = "input"
|
|
local lines = lines_from(file)
|
|
|
|
local reports = {}
|
|
for _, line in ipairs(lines) do
|
|
local raw_report = splitstr(line)
|
|
for i, v in ipairs(raw_report) do
|
|
raw_report[i] = tonumber(v)
|
|
end
|
|
|
|
reports[#reports + 1] = raw_report
|
|
end
|
|
|
|
-- return the sign of a number
|
|
local function sign(number)
|
|
if number > 0 then
|
|
return 1
|
|
elseif number == 0 then
|
|
return 0
|
|
else
|
|
return -1
|
|
end
|
|
end
|
|
|
|
function table.shallow_copy(t)
|
|
local t2 = {}
|
|
for k, v in pairs(t) do
|
|
t2[k] = v
|
|
end
|
|
return t2
|
|
end
|
|
|
|
local function is_safe(report)
|
|
local s = nil -- keeps track of the sign over the course of a report
|
|
local unsafe = false
|
|
local unsafe_idx_1, unsafe_idx_2
|
|
for i, v1 in ipairs(report) do
|
|
local v2 = report[i + 1]
|
|
-- if v2 doesn't exist, we are at the end of the report
|
|
if v2 ~= nil then
|
|
if s == nil then
|
|
-- if we are on the first iteration, we need to set the direction for
|
|
-- the rest of the report
|
|
s = sign(v1 - v2)
|
|
else
|
|
-- we check that the sign matches the rest of the report, breaking early if not
|
|
if sign(v1 - v2) ~= s then
|
|
unsafe = true
|
|
unsafe_idx_1, unsafe_idx_2 = i, i + 1
|
|
break
|
|
end
|
|
end
|
|
|
|
-- Checking if the rate of change in the report is within acceptable bounds
|
|
local distance = math.abs(v1 - v2)
|
|
if distance < 1 or distance > 3 then
|
|
unsafe = true
|
|
unsafe_idx_1, unsafe_idx_2 = i, i + 1
|
|
break
|
|
end
|
|
end
|
|
end
|
|
|
|
return unsafe, unsafe_idx_1, unsafe_idx_2
|
|
end
|
|
|
|
local function test_altered_report(report, idx)
|
|
local test_report = table.shallow_copy(report)
|
|
table.remove(test_report, idx)
|
|
|
|
return is_safe(test_report)
|
|
end
|
|
|
|
local safe_count = 0
|
|
for _, report in ipairs(reports) do
|
|
local unsafe, idx1, idx2 = is_safe(report)
|
|
|
|
if unsafe then
|
|
if not test_altered_report(report, idx1) or not test_altered_report(report, idx2) then
|
|
unsafe = false
|
|
end
|
|
end
|
|
|
|
if not unsafe then
|
|
safe_count = safe_count + 1
|
|
end
|
|
end
|
|
|
|
print(safe_count)
|