From c725cde0c8badeea5a2b720778a0d68c5054c9c9 Mon Sep 17 00:00:00 2001
From: DJ O'Leary <dijitol@proton.me>
Date: Mon, 1 Dec 2025 14:24:35 +0100
Subject: feat(2025d1p1): implement application logic and apply to example

---
 2025/ocaml/lib/presentation/cli.ml | 15 ++++++++++++++-
 1 file changed, 14 insertions(+), 1 deletion(-)

(limited to '2025/ocaml/lib/presentation/cli.ml')

diff --git a/2025/ocaml/lib/presentation/cli.ml b/2025/ocaml/lib/presentation/cli.ml
index 08b1552..6344d07 100644
--- a/2025/ocaml/lib/presentation/cli.ml
+++ b/2025/ocaml/lib/presentation/cli.ml
@@ -1,6 +1,19 @@
+let day_1_example = {|L68
+L30
+R48
+L5
+R60
+L55
+L1
+L99
+R14
+L82|}
+
 let run_day = function
   | 1 ->
-      Application.Day_1.run ()
+      let answer = Application.Day_1.solve day_1_example () in
+      Logs.app (fun m -> m "%d" answer) ;
+      0
   | _ ->
       failwith "day not implemented"
 
-- 
cgit v1.2.3