diff options
Diffstat (limited to 'aoc-2022-dotnet/Day16/Program.fs')
| -rw-r--r-- | aoc-2022-dotnet/Day16/Program.fs | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/aoc-2022-dotnet/Day16/Program.fs b/aoc-2022-dotnet/Day16/Program.fs index 87b0ffa..208d975 100644 --- a/aoc-2022-dotnet/Day16/Program.fs +++ b/aoc-2022-dotnet/Day16/Program.fs @@ -48,7 +48,7 @@ let buildGraph input = bfsExplore Set.empty [] [ (start, 0) ] - let valveMap = input |> Seq.map parseValve |> Map.ofSeq + let valveMap = input |> Seq.map parseValve |> Map let flows = valveMap @@ -59,7 +59,7 @@ let buildGraph input = valveMap |> Map.keys |> Seq.collect (distancesFrom valveMap) - |> Map.ofSeq + |> Map |> Map.filter (fun (f, t) _ -> f <> t && Map.containsKey f flows |