test: fix ocaml tests 2024 {WIP}HEADmain

2 files changed, 84 insertions, 0 deletions

diff --git a/ocaml/lib/year2024/day01/part01.ml b/ocaml/lib/year2024/day01/part01.ml
new file mode 100644
index 0000000..100b12a
--- /dev/null
+++ b/ocaml/lib/year2024/day01/part01.ml
@@ -0,0 +1,40 @@
+(* Day 1: Part 1 *)
+
+let calculate_distance x y = Stdlib.abs (x - y)
+
+(** Require: left and right to be the same length *)
+let solve left right =
+  let sorted_left = List.sort Stdlib.compare left in
+  let sorted_right = List.sort Stdlib.compare right in
+  let distances = List.map2 calculate_distance sorted_left sorted_right in
+  List.fold_left ( + ) 0 distances
+
+let left line =
+  let pos = 0 in
+  let len = String.index line ' ' in
+  String.sub line pos len
+
+let right line =
+  let pos = String.rindex line ' ' + 1 in
+  let len = String.length line - pos in
+  String.sub line pos len
+
+let line_to_tuple line = (left line, right line)
+
+let lines_to_lists lines =
+  let tuples = List.map line_to_tuple lines in
+  let left =
+    List.map
+      (fun t ->
+        let l, _ = t in
+        int_of_string l)
+      tuples
+  in
+  let right =
+    List.map
+      (fun t ->
+        let _, r = t in
+        int_of_string r)
+      tuples
+  in
+  (left, right)
diff --git a/ocaml/lib/year2024/day01/part02.ml b/ocaml/lib/year2024/day01/part02.ml
new file mode 100644
index 0000000..25c8b7d
--- /dev/null
+++ b/ocaml/lib/year2024/day01/part02.ml
@@ -0,0 +1,44 @@
+(* Day 1: Part 2 *)
+
+let rec count_occurrances_help element acc lst =
+  match lst with
+  | [] -> acc
+  | h :: t ->
+      if h = element then count_occurrances_help element (acc + 1) t
+      else count_occurrances_help element acc t
+
+let count_occurrances element lst = count_occurrances_help element 0 lst
+
+let solve left right =
+  List.map (fun x -> x * count_occurrances x right) left
+  |> List.fold_left ( + ) 0
+
+let left line =
+  let pos = 0 in
+  let len = String.index line ' ' in
+  String.sub line pos len
+
+let right line =
+  let pos = String.rindex line ' ' + 1 in
+  let len = String.length line - pos in
+  String.sub line pos len
+
+let line_to_tuple line = (left line, right line)
+
+let lines_to_lists lines =
+  let tuples = List.map line_to_tuple lines in
+  let left =
+    List.map
+      (fun t ->
+        let l, _ = t in
+        int_of_string l)
+      tuples
+  in
+  let right =
+    List.map
+      (fun t ->
+        let _, r = t in
+        int_of_string r)
+      tuples
+  in
+  (left, right)