2024/ocaml/bin/main.ml


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46

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