From bc8b9edc0860f4804dfd0ea868ee7beaa564e62a Mon Sep 17 00:00:00 2001
From: DJ O'Leary <dijitol@proton.me>
Date: Sat, 27 Jun 2026 04:28:48 +0200
Subject: test: fix ocaml tests 2024 {WIP}

---
 2024/ocaml/lib/day_03/part_01.ml | 33 ---------------------------------
 1 file changed, 33 deletions(-)
 delete mode 100644 2024/ocaml/lib/day_03/part_01.ml

(limited to '2024/ocaml/lib/day_03')

diff --git a/2024/ocaml/lib/day_03/part_01.ml b/2024/ocaml/lib/day_03/part_01.ml
deleted file mode 100644
index c12b68a..0000000
--- a/2024/ocaml/lib/day_03/part_01.ml
+++ /dev/null
@@ -1,33 +0,0 @@
-(* Day 3: Part 1 *)
-
-let find_mul text =
-  let regex_or_err = Re2.create "mul\\(([0-9]{1,3}),([0-9]{1,3})\\)" in
-  match regex_or_err with
-  | Ok regex -> (
-      let matches = Re2.get_matches regex text in
-      match matches with Ok matches -> matches | Error _ -> [])
-  | Error _ -> []
-
-let extract_pairs (matches : Re2.Match.t list) : (int * int) list =
-  List.map
-    (fun x ->
-      let left = Re2.Match.get x ~sub:(`Index 1) in
-      match left with
-      | None -> (0, 0)
-      | Some left -> (
-          let left_num = int_of_string left in
-          let right = Re2.Match.get x ~sub:(`Index 2) in
-          match right with
-          | None -> (0, 0)
-          | Some right ->
-              let right_num = int_of_string right in
-              (left_num, right_num)))
-    matches
-
-let solve input =
-  input |> find_mul |> extract_pairs
-  |> List.fold_left
-       (fun acc pair ->
-         let left, right = pair in
-         acc + (left * right))
-       0
-- 
cgit v1.2.3