Remove redundant line of code

2024-12-16 15:22:04 +00:00
parent f66c364090
commit f271e93e63
1 changed files with 1 additions and 3 deletions
--- a/bin/day2416.ml
+++ b/bin/day2416.ml
@@ -119,9 +119,7 @@ let part2 (grid, start_pos) =
  let rec impl acc lst =
    match dijkstra (visit_max grid visited_grid) (check_end grid) lst with
    | None -> acc
-    | Some (_, states, remainder) ->
-        List.iter (fun x -> visited_grid.(visited_idx grid x) <- 0) states;
-        impl (states :: acc) remainder
+    | Some (_, states, remainder) -> impl (states :: acc) remainder
  in
  impl [] [ (0, [ ((1, 0), start_pos) ]) ]
  |> List.concat |> List.map snd |> List.sort_uniq compare |> List.length