···

       
11
       
11
       
 
       
  in

     

       
12
       
12
       
 
       
  read [] |> List.rev |> String.concat ""

     

       
13
       
13
       
 
       


     

       
14
       
14
       
-
       
let regex = Str.regexp "mul(\\([0-9]+\\),\\([0-9]+\\))"

     

       
14
       
14
       
+
       
let regex_mul = Str.regexp "mul(\\([0-9]+\\),\\([0-9]+\\))"

     

       
15
       
15
       
 
       
let regex_mul_part_2 = Str.regexp "mul(\\([0-9]+\\),\\([0-9]+\\))\\|don't()"

     

       
16
       
16
       
 
       
let regex_do_part_2 = Str.regexp "do()"

     

       
17
       
17
       
 
       


     

       
18
       
18
       
-
       
let calculate_total str =

     

       
19
       
19
       
-
       
  let rec calculate str acc =

     

       
20
       
20
       
-
       
    try

     

       
21
       
21
       
-
       
      let _ = Str.search_forward regex str 0 in

     

       
22
       
22
       
-
       
      let a = Str.matched_group 1 str |> int_of_string in

     

       
23
       
23
       
-
       
      let b = Str.matched_group 2 str |> int_of_string in

     

       
24
       
24
       
-
       


     

       
25
       
25
       
-
       
      let result = a * b in

     

       
26
       
26
       
-
       
      let new_str = Str.replace_first regex (string_of_int result) str in

     

       
27
       
27
       
-
       
      calculate new_str (acc + result)

     

       
28
       
28
       
-
       
    with Not_found -> acc

     

       
29
       
29
       
-
       
  in

     

       
30
       
30
       
-
       
  calculate str 0

     

       
31
       
31
       
-
       


     

       
32
       
32
       
-
       
let calculate_total_part_2 str =

     

       
18
       
18
       
+
       
let calculate_total str regexp =

     

       
33
       
19
       
 
       
  let rec calculate str regexp acc =

     

       
34
       
20
       
 
       
    try

     

       
35
       
21
       
 
       
      let _ = Str.search_forward regexp str 0 in

     
···

       
43
       
29
       
 
       
      | cmd when String.starts_with ~prefix:"mul" cmd ->

     

       
44
       
30
       
 
       
          let a = Str.matched_group 1 str |> int_of_string in

     

       
45
       
31
       
 
       
          let b = Str.matched_group 2 str |> int_of_string in

     

       
46
       
46
       
-
       
          let result = a * b in

     

       
47
       
47
       
-
       
          calculate new_str regexp (acc + result)

     

       
32
       
32
       
+
       
          calculate new_str regexp (acc + (a * b))

     

       
48
       
33
       
 
       
      | _ -> acc

     

       
49
       
34
       
 
       
    with Not_found -> acc

     

       
50
       
35
       
 
       
  in

     

       
51
       
51
       
-
       
  calculate str regex_mul_part_2 0

     

       
36
       
36
       
+
       
  calculate str regexp 0

     

       
52
       
37
       
 
       


     

       
53
       
38
       
 
       
let () =

     

       
54
       
39
       
 
       
  let ic = open_in filename in

     

       
55
       
55
       
-
       
  read_file ic |> calculate_total |> Printf.sprintf "Sum %d" |> print_endline;

     

       
40
       
40
       
+
       
  let data = read_file ic in

     

       
41
       
41
       
+
       
  calculate_total data regex_mul |> Printf.sprintf "Sum %d" |> print_endline;

     

       
56
       
42
       
 
       


     

       
57
       
57
       
-
       
  let ic = open_in filename in

     

       
58
       
58
       
-
       
  read_file ic |> calculate_total_part_2

     

       
43
       
43
       
+
       
  calculate_total data regex_mul_part_2

     

       
59
       
44
       
 
       
  |> Printf.sprintf "Part 2 Sum %d"

     

       
60
       
45
       
 
       
  |> print_endline