From 353d185a1f89654f999dca7b75016ebef461a23c Mon Sep 17 00:00:00 2001 From: Tomasz Chojnacki Date: Fri, 30 Dec 2022 14:35:09 +0100 Subject: Finish day 24 --- aoc-2022-dotnet/Day14/Program.fs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'aoc-2022-dotnet/Day14') diff --git a/aoc-2022-dotnet/Day14/Program.fs b/aoc-2022-dotnet/Day14/Program.fs index b3ff4f9..018664a 100644 --- a/aoc-2022-dotnet/Day14/Program.fs +++ b/aoc-2022-dotnet/Day14/Program.fs @@ -28,11 +28,11 @@ let buildCaveScan = let solution1 input = let initialCaveScan = buildCaveScan input - let voidY = initialCaveScan |> Seq.map Vec2.y |> Seq.min + let voidY = initialCaveScan |> Seq.map Vec2.getY |> Seq.min let settleNewUnit caveScan = let rec fall pos = - if Vec2.y pos <= voidY then + if Vec2.getY pos <= voidY then None else sandMoveOffsets @@ -55,12 +55,12 @@ let solution1 input = let solution2 input = let caveScan = buildCaveScan input - let floorY = caveScan |> Seq.map Vec2.y |> Seq.min |> (+) -2 + let floorY = caveScan |> Seq.map Vec2.getY |> Seq.min |> (+) -2 let neighbours pos = sandMoveOffsets |> List.map ((+) pos) - |> List.filter (fun pos -> Util.notIn caveScan pos && Vec2.y pos <> floorY) + |> List.filter (fun pos -> Util.notIn caveScan pos && Vec2.getY pos <> floorY) let rec dfs vis = function -- cgit v1.2.3