summaryrefslogtreecommitdiff
path: root/2024/OCaml/bin
diff options
context:
space:
mode:
authorDJ O'Leary <dijitol@proton.me>2025-11-29 20:23:02 +0100
committerDJ O'Leary <dijitol@proton.me>2025-11-29 20:23:02 +0100
commit4c3a50166bf0f78ce89459c352cc1c6536a8b96d (patch)
tree02e4b66a1435680ef1e92bf82576747b27f16447 /2024/OCaml/bin
parentbe2f8528b3829f8263507da301812d852297c168 (diff)
chore: make language folders snake_case
Diffstat (limited to '2024/OCaml/bin')
-rw-r--r--2024/OCaml/bin/dune5
-rw-r--r--2024/OCaml/bin/main.ml46
2 files changed, 0 insertions, 51 deletions
diff --git a/2024/OCaml/bin/dune b/2024/OCaml/bin/dune
deleted file mode 100644
index ee36b46..0000000
--- a/2024/OCaml/bin/dune
+++ /dev/null
@@ -1,5 +0,0 @@
-(executable
- (public_name AoC_2024)
- (name main)
- (modes byte exe)
- (libraries AoC_2024))
diff --git a/2024/OCaml/bin/main.ml b/2024/OCaml/bin/main.ml
deleted file mode 100644
index a76e046..0000000
--- a/2024/OCaml/bin/main.ml
+++ /dev/null
@@ -1,46 +0,0 @@
-open AoC_2024
-
-let day_to_path day =
- let string_day = string_of_int day in
- let formatted_day = if day < 10 then "0" ^ string_day else string_day in
- "../_input/day_" ^ formatted_day ^ ".txt"
-
-let print_solution day_num part_num answer =
- print_string "D";
- print_int day_num;
- print_string ":P";
- print_int part_num;
- print_string " -> ";
- print_int answer;
- print_newline ()
-
-let day_1 =
- let lines = File.Read_input.lines_from_file (day_to_path 1) in
- let left, right = Day_01.Part_01.lines_to_lists lines in
- let part_01 = Day_01.Part_01.solve left right in
- print_solution 1 1 part_01;
- let part_02 = Day_01.Part_02.solve left right in
- print_solution 1 2 part_02
-
-let day_2 =
- let lines = File.Read_input.lines_from_file (day_to_path 2) in
- let reports = Day_02.Part_01.lines_to_reports lines in
- let part_01 = Day_02.Part_01.solve reports in
- print_solution 2 1 part_01
-
-let day_3 =
- let lines = File.Read_input.lines_from_file (day_to_path 3) in
- let line = List.fold_left (fun acc line -> acc ^ line) "" lines in
- let part_01 = Day_03.Part_01.solve line in
- print_solution 3 1 part_01
-
-let day_4 =
- let lines = File.Read_input.lines_from_file (day_to_path 4) in
- let part_01 = Day_04.Part_01.solve lines in
- print_solution 4 1 part_01
-
-let _ =
- day_1;
- day_2;
- day_3;
- day_4