diff options
Diffstat (limited to '2025/ocaml/lib/presentation')
| -rw-r--r-- | 2025/ocaml/lib/presentation/cli.ml | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/2025/ocaml/lib/presentation/cli.ml b/2025/ocaml/lib/presentation/cli.ml index 5863d21..1a8e7f7 100644 --- a/2025/ocaml/lib/presentation/cli.ml +++ b/2025/ocaml/lib/presentation/cli.ml @@ -3,7 +3,7 @@ let run_solver name solver filepath = let content = Infrastructure.File.read filepath in let answer = solver content () in - Logs.app (fun m -> m "%s=%d" name answer) + Logs.app (fun m -> m "[%s] ANSWER=%d" name answer) let run_day _ = function | 1 -> @@ -20,6 +20,10 @@ let run_day _ = function let filepath = "../_input/day_03.txt" in run_solver "D03P01" Application.D03p01.solve filepath ; 0 + | 4 -> + let filepath = "../_input/day_04.txt" in + run_solver "D04P01" Application.D04p01.solve filepath ; + 0 | _ -> failwith "day not implemented" |