diff options
| -rw-r--r-- | 2024/OCaml/lib/day_01/part_02.ml | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/2024/OCaml/lib/day_01/part_02.ml b/2024/OCaml/lib/day_01/part_02.ml index 532b344..25c8b7d 100644 --- a/2024/OCaml/lib/day_01/part_02.ml +++ b/2024/OCaml/lib/day_01/part_02.ml @@ -10,7 +10,8 @@ let rec count_occurrances_help element acc lst = let count_occurrances element lst = count_occurrances_help element 0 lst let solve left right = - List.map (fun x -> x * count_occurrances x right) left |> List.fold_left ( + ) 0 + List.map (fun x -> x * count_occurrances x right) left + |> List.fold_left ( + ) 0 let left line = let pos = 0 in |