refactor(cli): factor out shared code

1 files changed, 8 insertions, 5 deletions

diff --git a/2025/ocaml/lib/presentation/cli.ml b/2025/ocaml/lib/presentation/cli.ml
index e691545..184de09 100644
--- a/2025/ocaml/lib/presentation/cli.ml
+++ b/2025/ocaml/lib/presentation/cli.ml
@@ -1,10 +1,13 @@
+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)
+
 let run_day = function
   | 1 ->
-      let content = Infrastructure.File.read "../_input/day_01.txt" in
-      let answerP1 = Application.D01p01.solve content () in
-      Logs.app (fun m -> m "D1P1=%d" answerP1) ;
-      let answerP2 = Application.D01p02.solve content () in
-      Logs.app (fun m -> m "D1P2=%d" answerP2) ;
+      let filepath = "../_input/day_01.txt" in
+      run_solver "D01P01" Application.D01p01.solve filepath ;
+      run_solver "D01P02" Application.D01p02.solve filepath ;
       0
   | _ ->
       failwith "day not implemented"