From 806ca36af8773c71c6f4d2ac77fc35ac0aa3b5a0 Mon Sep 17 00:00:00 2001 From: Tomasz Chojnacki Date: Sun, 1 Jan 2023 22:18:29 +0100 Subject: Finish day 19 --- aoc-2022-dotnet/Day16/Program.fs | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'aoc-2022-dotnet/Day16/Program.fs') 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 -- cgit v1.2.3