diff options
Diffstat (limited to '2024/OCaml/bin/main.ml')
| -rw-r--r-- | 2024/OCaml/bin/main.ml | 46 |
1 files changed, 0 insertions, 46 deletions
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 |