removed commented out debug lines

2/main.ml

@@ -63,7 +63,6 @@ let () =
   let f = open_in "input.txt" in
   let lines = list_of_lines f in
   let diffs = List.map (fun a -> int_list_diff @@ parse_int_list a) lines in
-  (* List.iter (fun a -> List.iter (printf "%d, ") a; printf "\n") diffs *)
   let count = List.fold_left (fun acc l -> if list_diffs_safe l then acc + 1 else acc) 0 diffs in
   let count2 = List.fold_left (fun acc l -> if list_diff_safe_with_tolerance l then acc + 1 else acc) 0 diffs in
   printf "%d\n" count;

4/main.ml

@@ -105,7 +105,6 @@ let count_mas_x arr =
 let () =
   let f = open_in "input.txt" in
   let arr = file_to_2d_array f in
-  (* Array.iter (fun x -> Array.iter print_char x; print_newline()) arr;*)
   let counter = 
     (count_in_string @@ prepare_horizontal_str arr)
     + (count_in_string @@ prepare_vertical_str arr)