refactor!: change repo directory structure for ocaml

2 files changed, 54 insertions, 0 deletions

diff --git a/ocaml/lib/year2025/day06/part01/solver.ml b/ocaml/lib/year2025/day06/part01/solver.ml
new file mode 100644
index 0000000..d992ac2
--- /dev/null
+++ b/ocaml/lib/year2025/day06/part01/solver.ml
@@ -0,0 +1,50 @@
+let err_empty_input = "input is empty"
+
+let log_matrix matrix =
+  let open Shared.Matrix in
+  Logs.debug (fun m -> m "%s" (M.of_list matrix |> M.pp (fun elt -> elt)))
+
+let log_list lst =
+  Logs.debug (fun m ->
+      m "[%s]" (List.fold_left (fun acc i -> acc ^ i ^ "; ") " " lst) )
+
+type operation = Mult | Add
+
+let solve input () =
+  if input = "" then Error err_empty_input
+  else
+    let input' = Shared.Parser.columns_of_string input in
+    assert (input' <> []) ;
+    log_matrix input' ;
+    let nums =
+      List.map (List.filter (fun i -> i <> "*" && i <> "+")) input'
+      |> List.map
+         @@ List.map (fun n ->
+             Logs.debug (fun m -> m "peeking: %s" n) ;
+             int_of_string n )
+    and ops =
+      List.map (List.filter (fun i -> i = "*" || i = "+")) input'
+      |> List.concat
+      |> List.map (fun op ->
+          match op with
+          | "*" ->
+              Mult
+          | "+" ->
+              Add
+          | _ ->
+              failwith "case not covered" )
+    in
+    let answer =
+      List.map2
+        (fun op num_lst ->
+          match op with
+          | Add ->
+              List.fold_left (fun acc i -> acc + i) 0 num_lst
+          | Mult ->
+              List.fold_left (fun acc i -> acc * i) 1 num_lst )
+        ops nums
+      |> fun lst ->
+      log_list @@ List.map string_of_int lst ;
+      lst |> List.fold_left ( + ) 0
+    in
+    Ok answer
diff --git a/ocaml/lib/year2025/day06/part01/solver.mli b/ocaml/lib/year2025/day06/part01/solver.mli
new file mode 100644
index 0000000..b3abc1e
--- /dev/null
+++ b/ocaml/lib/year2025/day06/part01/solver.mli
@@ -0,0 +1,4 @@
+val solve : string -> unit -> (int, string) result
+(** [solve input ()] is the solution for the first part of the sixth day of advent of code 2025 for [input].
+    The solution for an empty input is [Error msg].
+    Requires: [input] to be a string. *)