Acvaxoort/adventofcode2024
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

removed commented out debug lines

Browse Source
This commit is contained in:
Acvaxoort
2024-12-06 18:25:28 +01:00
parent 431a1f2b13
commit 4ef6fd50d4
2 changed files with 0 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
2/main.ml
View File

@@ -63,7 +63,6 @@ let () =
let f = open_in "input.txt" in let f = open_in "input.txt" in
let lines = list_of_lines f in let lines = list_of_lines f in
let diffs = List.map (fun a -> int_list_diff @@ parse_int_list a) lines 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 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 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; printf "%d\n" count;

1
4/main.ml
View File

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