diff options
| author | DJ O'Leary <dijitol@proton.me> | 2026-06-27 04:28:48 +0200 |
|---|---|---|
| committer | DJ O'Leary <dijitol@proton.me> | 2026-06-27 04:28:48 +0200 |
| commit | bc8b9edc0860f4804dfd0ea868ee7beaa564e62a (patch) | |
| tree | e1123d11627b4829586da3b097015b1dbb3d0285 /2024/ocaml/lib/day_03/part_01.ml | |
| parent | 976048a85403fbb0751c34fa42703a3c47f6e918 (diff) | |
Diffstat (limited to '2024/ocaml/lib/day_03/part_01.ml')
| -rw-r--r-- | 2024/ocaml/lib/day_03/part_01.ml | 33 |
1 files changed, 0 insertions, 33 deletions
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 |