mgrettondann/ocaml-aoc
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Remove redundant line of code

Browse Source
This commit is contained in:
Matthew Gretton-Dann
2024-12-16 15:22:04 +00:00
parent f66c364090
commit f271e93e63
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
bin/day2416.ml
View File

@@ -119,9 +119,7 @@ let part2 (grid, start_pos) =
let rec impl acc lst = let rec impl acc lst =
match dijkstra (visit_max grid visited_grid) (check_end grid) lst with match dijkstra (visit_max grid visited_grid) (check_end grid) lst with
| None -> acc | None -> acc
| Some (_, states, remainder) -> | Some (_, states, remainder) -> impl (states :: acc) remainder
List.iter (fun x -> visited_grid.(visited_idx grid x) <- 0) states;
impl (states :: acc) remainder
in in
impl [] [ (0, [ ((1, 0), start_pos) ]) ] impl [] [ (0, [ ((1, 0), start_pos) ]) ]
|> List.concat |> List.map snd |> List.sort_uniq compare |> List.length |> List.concat |> List.map snd |> List.sort_uniq compare |> List.length