day1.ml

let solve lines =
  let fuel = fun n -> n / 3 - 2 in
  let sum = List.fold_left (+) 0 in
  let nums =
    lines
    |> List.map int_of_string
  in
  nums
  |> List.map fuel
  |> sum
  |> Printf.printf "Part1 = %d\n";
  let all_fuel n =
    let rec loop n =
      let fuel = fuel n in
      if fuel < 0 then [] else fuel :: loop fuel
    in
    loop n
  in
  nums
  |> List.map all_fuel
  |> List.concat
  |> sum
  |> Printf.printf "Part2 = %d\n";