From 6d8fb621d1e93b83786890d6d9cb6f0d8defa8ae Mon Sep 17 00:00:00 2001
From: DJ O'Leary <dijitol@proton.me>
Date: Fri, 26 Jun 2026 18:04:09 +0200
Subject: refactor!: invert repo directory structure

now is language first
---
 ocaml/lib/application/d03p02.ml | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 ocaml/lib/application/d03p02.ml

(limited to 'ocaml/lib/application/d03p02.ml')

diff --git a/ocaml/lib/application/d03p02.ml b/ocaml/lib/application/d03p02.ml
new file mode 100644
index 0000000..743c658
--- /dev/null
+++ b/ocaml/lib/application/d03p02.ml
@@ -0,0 +1,23 @@
+open Domain.D03p02
+
+let err_empty_input = "input is empty"
+
+let to_lines s =
+  s |> String.split_on_char '\n' |> List.map String.trim
+  |> List.filter (fun l -> l <> "")
+
+let solve input () =
+  if input = "" then Error err_empty_input
+  else
+    let answer =
+      input |> to_lines |> List.to_seq
+      |> Seq.map BatteryBank.of_string
+      |> Seq.mapi (fun idx bb ->
+          let joltage = BatteryBank.highest_joltage bb in
+          Logs.debug (fun m ->
+              m "%d line=%s highest_joltage=%d" (idx + 1) (BatteryBank.pp bb)
+                joltage ) ;
+          joltage )
+      |> Seq.fold_left ( + ) 0
+    in
+    Ok answer
-- 
cgit v1.2.3