Correct part numbers

This commit is contained in:
2024-12-03 08:08:32 +00:00
parent efdde2441b
commit f0648b6267

View File

@@ -10,7 +10,7 @@ let main prep parts =
| [| _; fname |] ->
let lines = prep fname in
let do_part i (fmt, fn) =
Printf.printf "Part %d = %s\n" i (fmt (fn lines))
Printf.printf "Part %d = %s\n" (i + 1) (fmt (fn lines))
in
List.iteri do_part parts;
exit 0