list = File.read!("input.txt")
|> String.split(~r/\R/)
|> Enum.map(&String.to_integer/1)

ans1 = list
|> Enum.sum()
IO.puts(ans1)

reducer = fn i, {current, seen} ->
	frequency = current + i
	if MapSet.member?(seen, frequency) do
		{:halt, frequency}
	else
		{:cont, {frequency, MapSet.put(seen, frequency)}}
	end
end

ans2 = list
|> Stream.cycle()
|> Enum.reduce_while({0, MapSet.new([0])}, reducer)
IO.puts(ans2)