45 lines
1,015 B
Elixir
45 lines
1,015 B
Elixir
defmodule Exercise1 do
|
|
def to_command(s) do
|
|
try do
|
|
{:add, s |> String.trim() |> String.to_integer()}
|
|
rescue
|
|
ArgumentError -> {:reset}
|
|
end
|
|
end
|
|
|
|
def init_state() do
|
|
{nil, 0, false}
|
|
end
|
|
def apply_command(command, state) do
|
|
case command do
|
|
{:add, n} -> apply_add(n, state)
|
|
{:reset} -> apply_reset(state)
|
|
end
|
|
end
|
|
|
|
defp apply_add(n, state) do
|
|
{current, total, exit} = state
|
|
new_current = if is_nil(current) do 0 else current end + n
|
|
{new_current, max(total, new_current), exit}
|
|
end
|
|
|
|
defp apply_reset(state) do
|
|
{current, total, exit} = state
|
|
case current do
|
|
nil -> {current, total, true}
|
|
_ -> {nil, total, exit}
|
|
end
|
|
end
|
|
end
|
|
|
|
result = IO.stream() |>
|
|
Enum.reduce_while(
|
|
Exercise1.init_state(),
|
|
fn line, acc -> line
|
|
|> Exercise1.to_command()
|
|
|> Exercise1.apply_command(acc)
|
|
|> then(fn acc -> if elem(acc, 2) do {:halt, acc} else {:cont, acc} end end)
|
|
end
|
|
)
|
|
|
|
IO.puts(elem(result, 1))
|