diff options
Diffstat (limited to 'bin/main.ml')
| -rw-r--r-- | bin/main.ml | 29 |
1 files changed, 19 insertions, 10 deletions
diff --git a/bin/main.ml b/bin/main.ml index 403c606..2769553 100644 --- a/bin/main.ml +++ b/bin/main.ml @@ -9,24 +9,33 @@ open Aoc2025 let parse_day s = match int_of_string_opt s with | Some n when n >= 1 && n <= 12 -> n - | _ -> failwith (Format.sprintf "Day '%s' is invalid, expected an integer between 1 and 12" s) + | _ -> + failwith + (Format.sprintf + "Day '%s' is invalid, expected an integer between 1 and 12" s) let parse_part s = match int_of_string_opt s with | Some n when n >= 1 && n <= 2 -> n - | _ -> failwith (Format.sprintf "Part '%s' is invalid, expected an integer between 1 and 2" s) + | _ -> + failwith + (Format.sprintf + "Part '%s' is invalid, expected an integer between 1 and 2" s) let day_part_fn day part = let day = parse_day day in let part = parse_part part in match (day, part) with - | (1, 1) -> Day01.part1 - | (1, 2) -> Day01.part2 - | (2, 1) -> Day02.part1 - | (2, 2) -> Day02.part2 - | (3, 1) -> Day03.part1 - | (3, 2) -> Day03.part2 - | _ -> failwith (Format.sprintf "Day %d, part %d, has not yet been implemented\n" day part) + | 1, 1 -> Day01.part1 + | 1, 2 -> Day01.part2 + | 2, 1 -> Day02.part1 + | 2, 2 -> Day02.part2 + | 3, 1 -> Day03.part1 + | 3, 2 -> Day03.part2 + | _ -> + failwith + (Format.sprintf "Day %d, part %d, has not yet been implemented\n" day + part) let () = let usage_msg = "aoc2025 <day> <part> <inputfile>" in @@ -43,7 +52,7 @@ let () = try let s = Unix.gettimeofday () in fn ic; - Printf.printf "%.3f" ((Unix.gettimeofday ()) -. s) + Printf.printf "%.3f" (Unix.gettimeofday () -. s) with e -> close_in_noerr ic; raise e |