From 4c3a50166bf0f78ce89459c352cc1c6536a8b96d Mon Sep 17 00:00:00 2001
From: DJ O'Leary <dijitol@proton.me>
Date: Sat, 29 Nov 2025 20:23:02 +0100
Subject: chore: make language folders snake_case

---
 2024/OCaml/lib/day_01/part_01.ml | 40 ----------------------------------------
 1 file changed, 40 deletions(-)
 delete mode 100644 2024/OCaml/lib/day_01/part_01.ml

(limited to '2024/OCaml/lib/day_01/part_01.ml')

diff --git a/2024/OCaml/lib/day_01/part_01.ml b/2024/OCaml/lib/day_01/part_01.ml
deleted file mode 100644
index 100b12a..0000000
--- a/2024/OCaml/lib/day_01/part_01.ml
+++ /dev/null
@@ -1,40 +0,0 @@
-(* 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)
-- 
cgit v1.2.3