Discussion on: AoC Day 1: Chronal Calibration

let rec f freq ic =
  try f (freq + int_of_string (input_line ic)) ic
  with End_of_file -> freq

let () = Printf.printf "%d\n" (f 0 stdin)

let rec read_changes changes ic =
  let next_line = try Some (input_line ic) with End_of_file -> None in
  match next_line with
  | None -> List.rev changes
  | Some c -> read_changes (int_of_string c :: changes) ic

let rec f freq freqs changes_done = function
  | [] -> f freq freqs [] (List.rev changes_done)
  | c :: r ->
    let freq' = freq + c in
    if List.mem freq' freqs then freq'
    else f freq' (freq' :: freqs) (c :: changes_done) r

let () = Printf.printf "%d\n" (f 0 [0] [] (read_changes [] stdin))