From 6d80c94eb7ea8ac0421df0832409b63be7c1246a Mon Sep 17 00:00:00 2001 From: Alexandre Jesus Date: Wed, 3 Dec 2025 21:05:57 +0000 Subject: Setup ocamlformat Define a initial setup for ocamlformat. I might still tweak the settings in the future. --- bin/main.ml | 29 +++++++++++++++++++---------- 1 file changed, 19 insertions(+), 10 deletions(-) (limited to 'bin/main.ml') 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 " 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 -- cgit v1.2.3