From 7b966eaa18d53e282af87d87c2cfedd2080ab301 Mon Sep 17 00:00:00 2001
From: Patrick Stevens <patrick+github@patrickstevens.co.uk>
Date: Wed, 14 Dec 2022 19:36:38 +0000
Subject: [PATCH] Day 14 (#23)

---
 .../AdventOfCode2022.App.fsproj               |   1 +
 AdventOfCode2022.App/Inputs.fs                |   2 +-
 AdventOfCode2022.App/Program.fs               |   2 +-
 AdventOfCode2022.App/Run.fs                   |  17 ++
 .../AdventOfCode2022.Test.fsproj              |   2 +
 AdventOfCode2022.Test/Day14.fs                |  33 ++++
 AdventOfCode2022.Test/Inputs/Day14.txt        | 151 ++++++++++++++
 AdventOfCode2022/AdventOfCode2022.fsproj      |   1 +
 AdventOfCode2022/Day12.fs                     |  13 +-
 AdventOfCode2022/Day14.fs                     | 186 ++++++++++++++++++
 ...e2022.App.Benchmark11To15-report-github.md |  18 +-
 ...tOfCode2022.App.Benchmark11To15-report.csv |  14 +-
 ...OfCode2022.App.Benchmark11To15-report.html |  16 +-
 13 files changed, 426 insertions(+), 30 deletions(-)
 create mode 100644 AdventOfCode2022.Test/Day14.fs
 create mode 100644 AdventOfCode2022.Test/Inputs/Day14.txt
 create mode 100644 AdventOfCode2022/Day14.fs

diff --git a/AdventOfCode2022.App/AdventOfCode2022.App.fsproj b/AdventOfCode2022.App/AdventOfCode2022.App.fsproj
index b6c73f7..3e38a7e 100644
--- a/AdventOfCode2022.App/AdventOfCode2022.App.fsproj
+++ b/AdventOfCode2022.App/AdventOfCode2022.App.fsproj
@@ -23,6 +23,7 @@
       <EmbeddedResource Include="..\AdventOfCode2022.Test\Inputs\Day11.txt" />
       <EmbeddedResource Include="..\AdventOfCode2022.Test\Inputs\Day12.txt" />
       <EmbeddedResource Include="..\AdventOfCode2022.Test\Inputs\Day13.txt" />
+      <EmbeddedResource Include="..\AdventOfCode2022.Test\Inputs\Day14.txt" />
     </ItemGroup>
 
     <ItemGroup>
diff --git a/AdventOfCode2022.App/Inputs.fs b/AdventOfCode2022.App/Inputs.fs
index f1a2fab..895bdae 100644
--- a/AdventOfCode2022.App/Inputs.fs
+++ b/AdventOfCode2022.App/Inputs.fs
@@ -2,5 +2,5 @@ namespace AdventOfCode2022.App
 
 [<RequireQualifiedAccess>]
 module Inputs =
-    let days = Array.init 13 (fun day -> Assembly.readResource $"Day%i{day + 1}.txt")
+    let days = Array.init 14 (fun day -> Assembly.readResource $"Day%i{day + 1}.txt")
     let inline day (i : int) = days.[i - 1]
diff --git a/AdventOfCode2022.App/Program.fs b/AdventOfCode2022.App/Program.fs
index 5cb6049..2840e2d 100644
--- a/AdventOfCode2022.App/Program.fs
+++ b/AdventOfCode2022.App/Program.fs
@@ -47,7 +47,7 @@ type Benchmark11To15 () =
     [<GlobalSetup>]
     member _.Setup () = Run.shouldWrite <- false
 
-    [<Params(11, 12, 13)>]
+    [<Params(11, 12, 13, 14)>]
     member val Day = 0 with get, set
 
     [<Params(false, true)>]
diff --git a/AdventOfCode2022.App/Run.fs b/AdventOfCode2022.App/Run.fs
index 13d7521..ce9e857 100644
--- a/AdventOfCode2022.App/Run.fs
+++ b/AdventOfCode2022.App/Run.fs
@@ -188,6 +188,22 @@ module Run =
             if shouldWrite then
                 printfn "%i" output
 
+
+    let day14 (partTwo : bool) (input : string) =
+        let day14 = StringSplitEnumerator.make '\n' input
+
+        if not partTwo then
+            let output = Day14.part1 day14
+
+            if shouldWrite then
+                printfn "%i" output
+        else
+            let output = Day14.part2 day14
+
+            if shouldWrite then
+                printfn "%i" output
+
+
     let allRuns =
         [|
             day1
@@ -203,4 +219,5 @@ module Run =
             day11
             day12
             day13
+            day14
         |]
diff --git a/AdventOfCode2022.Test/AdventOfCode2022.Test.fsproj b/AdventOfCode2022.Test/AdventOfCode2022.Test.fsproj
index 4283081..1015512 100644
--- a/AdventOfCode2022.Test/AdventOfCode2022.Test.fsproj
+++ b/AdventOfCode2022.Test/AdventOfCode2022.Test.fsproj
@@ -21,6 +21,7 @@
         <Compile Include="Day11.fs" />
         <Compile Include="Day12.fs" />
         <Compile Include="Day13.fs" />
+        <Compile Include="Day14.fs" />
         <EmbeddedResource Include="Inputs\Day1.txt" />
         <EmbeddedResource Include="Inputs\Day2.txt" />
         <EmbeddedResource Include="Inputs\Day3.txt" />
@@ -34,6 +35,7 @@
         <EmbeddedResource Include="Inputs\Day11.txt" />
         <EmbeddedResource Include="Inputs\Day12.txt" />
         <EmbeddedResource Include="Inputs\Day13.txt" />
+        <EmbeddedResource Include="Inputs\Day14.txt" />
     </ItemGroup>
 
     <ItemGroup>
diff --git a/AdventOfCode2022.Test/Day14.fs b/AdventOfCode2022.Test/Day14.fs
new file mode 100644
index 0000000..d94b256
--- /dev/null
+++ b/AdventOfCode2022.Test/Day14.fs
@@ -0,0 +1,33 @@
+namespace AdventOfCode2022.Test
+
+open NUnit.Framework
+open FsUnitTyped
+open AdventOfCode2022
+
+[<TestFixture>]
+module TestDay14 =
+
+    let input =
+        """498,4 -> 498,6 -> 496,6
+503,4 -> 502,4 -> 502,9 -> 494,9
+"""
+
+    [<Test>]
+    let ``Part 1, given`` () =
+        Day14.part1 (StringSplitEnumerator.make '\n' input) |> shouldEqual 24
+
+    [<Test>]
+    let ``Part 1`` () =
+        let input = Assembly.readResource "Day14.txt"
+
+        Day14.part1 (StringSplitEnumerator.make '\n' input) |> shouldEqual 768
+
+
+    [<Test>]
+    let ``Part 2, given`` () =
+        Day14.part2 (StringSplitEnumerator.make '\n' input) |> shouldEqual 93
+
+    [<Test>]
+    let ``Part 2`` () =
+        let input = Assembly.readResource "Day14.txt"
+        Day14.part2 (StringSplitEnumerator.make '\n' input) |> shouldEqual 26686
diff --git a/AdventOfCode2022.Test/Inputs/Day14.txt b/AdventOfCode2022.Test/Inputs/Day14.txt
new file mode 100644
index 0000000..a6cd4fc
--- /dev/null
+++ b/AdventOfCode2022.Test/Inputs/Day14.txt
@@ -0,0 +1,151 @@
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+481,92 -> 481,96 -> 476,96 -> 476,99 -> 487,99 -> 487,96 -> 485,96 -> 485,92
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+470,76 -> 470,80 -> 466,80 -> 466,84 -> 481,84 -> 481,80 -> 474,80 -> 474,76
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+495,155 -> 499,155
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+500,138 -> 505,138
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+481,92 -> 481,96 -> 476,96 -> 476,99 -> 487,99 -> 487,96 -> 485,96 -> 485,92
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+489,115 -> 489,119 -> 481,119 -> 481,126 -> 494,126 -> 494,119 -> 493,119 -> 493,115
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+485,112 -> 485,102 -> 485,112 -> 487,112 -> 487,111 -> 487,112 -> 489,112 -> 489,105 -> 489,112
+481,92 -> 481,96 -> 476,96 -> 476,99 -> 487,99 -> 487,96 -> 485,96 -> 485,92
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+470,49 -> 470,53 -> 468,53 -> 468,60 -> 477,60 -> 477,53 -> 476,53 -> 476,49
+483,160 -> 487,160
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+491,131 -> 502,131 -> 502,130
+475,88 -> 475,89 -> 483,89 -> 483,88
+483,164 -> 487,164
+498,147 -> 503,147
+505,147 -> 510,147
+485,112 -> 485,102 -> 485,112 -> 487,112 -> 487,111 -> 487,112 -> 489,112 -> 489,105 -> 489,112
+516,150 -> 521,150
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+496,13 -> 501,13
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+512,147 -> 517,147
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+497,141 -> 502,141
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+480,162 -> 484,162
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+485,112 -> 485,102 -> 485,112 -> 487,112 -> 487,111 -> 487,112 -> 489,112 -> 489,105 -> 489,112
+489,155 -> 493,155
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+498,157 -> 502,157
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+491,147 -> 496,147
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+489,115 -> 489,119 -> 481,119 -> 481,126 -> 494,126 -> 494,119 -> 493,119 -> 493,115
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+470,76 -> 470,80 -> 466,80 -> 466,84 -> 481,84 -> 481,80 -> 474,80 -> 474,76
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+475,88 -> 475,89 -> 483,89 -> 483,88
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+486,162 -> 490,162
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+508,144 -> 513,144
+481,92 -> 481,96 -> 476,96 -> 476,99 -> 487,99 -> 487,96 -> 485,96 -> 485,92
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+470,49 -> 470,53 -> 468,53 -> 468,60 -> 477,60 -> 477,53 -> 476,53 -> 476,49
+477,164 -> 481,164
+485,112 -> 485,102 -> 485,112 -> 487,112 -> 487,111 -> 487,112 -> 489,112 -> 489,105 -> 489,112
+504,141 -> 509,141
+489,164 -> 493,164
+480,42 -> 485,42
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+470,49 -> 470,53 -> 468,53 -> 468,60 -> 477,60 -> 477,53 -> 476,53 -> 476,49
+485,112 -> 485,102 -> 485,112 -> 487,112 -> 487,111 -> 487,112 -> 489,112 -> 489,105 -> 489,112
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+489,115 -> 489,119 -> 481,119 -> 481,126 -> 494,126 -> 494,119 -> 493,119 -> 493,115
+486,157 -> 490,157
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+470,76 -> 470,80 -> 466,80 -> 466,84 -> 481,84 -> 481,80 -> 474,80 -> 474,76
+485,112 -> 485,102 -> 485,112 -> 487,112 -> 487,111 -> 487,112 -> 489,112 -> 489,105 -> 489,112
+501,144 -> 506,144
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+485,112 -> 485,102 -> 485,112 -> 487,112 -> 487,111 -> 487,112 -> 489,112 -> 489,105 -> 489,112
+470,76 -> 470,80 -> 466,80 -> 466,84 -> 481,84 -> 481,80 -> 474,80 -> 474,76
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+492,166 -> 496,166
+509,150 -> 514,150
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+480,134 -> 480,135 -> 500,135 -> 500,134
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+486,166 -> 490,166
+494,144 -> 499,144
+481,92 -> 481,96 -> 476,96 -> 476,99 -> 487,99 -> 487,96 -> 485,96 -> 485,92
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+480,134 -> 480,135 -> 500,135 -> 500,134
+481,46 -> 486,46
+477,44 -> 482,44
+470,49 -> 470,53 -> 468,53 -> 468,60 -> 477,60 -> 477,53 -> 476,53 -> 476,49
+491,131 -> 502,131 -> 502,130
+492,157 -> 496,157
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+488,150 -> 493,150
+481,92 -> 481,96 -> 476,96 -> 476,99 -> 487,99 -> 487,96 -> 485,96 -> 485,92
+474,46 -> 479,46
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+489,115 -> 489,119 -> 481,119 -> 481,126 -> 494,126 -> 494,119 -> 493,119 -> 493,115
+460,73 -> 460,70 -> 460,73 -> 462,73 -> 462,69 -> 462,73 -> 464,73 -> 464,65 -> 464,73 -> 466,73 -> 466,65 -> 466,73 -> 468,73 -> 468,64 -> 468,73 -> 470,73 -> 470,68 -> 470,73 -> 472,73 -> 472,68 -> 472,73
+489,115 -> 489,119 -> 481,119 -> 481,126 -> 494,126 -> 494,119 -> 493,119 -> 493,115
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+470,76 -> 470,80 -> 466,80 -> 466,84 -> 481,84 -> 481,80 -> 474,80 -> 474,76
+488,46 -> 493,46
+495,150 -> 500,150
+474,166 -> 478,166
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+484,44 -> 489,44
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+484,39 -> 484,38 -> 484,39 -> 486,39 -> 486,33 -> 486,39 -> 488,39 -> 488,30 -> 488,39 -> 490,39 -> 490,35 -> 490,39 -> 492,39 -> 492,38 -> 492,39 -> 494,39 -> 494,30 -> 494,39 -> 496,39 -> 496,36 -> 496,39
+489,115 -> 489,119 -> 481,119 -> 481,126 -> 494,126 -> 494,119 -> 493,119 -> 493,115
+481,92 -> 481,96 -> 476,96 -> 476,99 -> 487,99 -> 487,96 -> 485,96 -> 485,92
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+489,115 -> 489,119 -> 481,119 -> 481,126 -> 494,126 -> 494,119 -> 493,119 -> 493,115
+492,153 -> 496,153
+502,150 -> 507,150
+470,49 -> 470,53 -> 468,53 -> 468,60 -> 477,60 -> 477,53 -> 476,53 -> 476,49
+475,88 -> 475,89 -> 483,89 -> 483,88
+480,134 -> 480,135 -> 500,135 -> 500,134
+470,76 -> 470,80 -> 466,80 -> 466,84 -> 481,84 -> 481,80 -> 474,80 -> 474,76
+492,26 -> 492,17 -> 492,26 -> 494,26 -> 494,16 -> 494,26 -> 496,26 -> 496,22 -> 496,26 -> 498,26 -> 498,17 -> 498,26 -> 500,26 -> 500,20 -> 500,26 -> 502,26 -> 502,25 -> 502,26 -> 504,26 -> 504,23 -> 504,26 -> 506,26 -> 506,21 -> 506,26 -> 508,26 -> 508,16 -> 508,26 -> 510,26 -> 510,24 -> 510,26
+480,166 -> 484,166
+470,49 -> 470,53 -> 468,53 -> 468,60 -> 477,60 -> 477,53 -> 476,53 -> 476,49
+470,76 -> 470,80 -> 466,80 -> 466,84 -> 481,84 -> 481,80 -> 474,80 -> 474,76
+485,112 -> 485,102 -> 485,112 -> 487,112 -> 487,111 -> 487,112 -> 489,112 -> 489,105 -> 489,112
+470,49 -> 470,53 -> 468,53 -> 468,60 -> 477,60 -> 477,53 -> 476,53 -> 476,49
diff --git a/AdventOfCode2022/AdventOfCode2022.fsproj b/AdventOfCode2022/AdventOfCode2022.fsproj
index ca43a9f..cb8bd69 100644
--- a/AdventOfCode2022/AdventOfCode2022.fsproj
+++ b/AdventOfCode2022/AdventOfCode2022.fsproj
@@ -23,6 +23,7 @@
       <Compile Include="Day11.fs" />
       <Compile Include="Day12.fs" />
       <Compile Include="Day13.fs" />
+      <Compile Include="Day14.fs" />
     </ItemGroup>
 
 </Project>
diff --git a/AdventOfCode2022/Day12.fs b/AdventOfCode2022/Day12.fs
index 9d1513c..179ee85 100644
--- a/AdventOfCode2022/Day12.fs
+++ b/AdventOfCode2022/Day12.fs
@@ -11,18 +11,17 @@ open Checked
 #nowarn "9"
 #endif
 
+type Coordinate =
+    {
+        X : int
+        Y : int
+    }
+
 [<RequireQualifiedAccess>]
 module Day12 =
 
     let private charToByte (c : char) = byte c - byte 'a'
 
-    [<Struct>]
-    type Coordinate =
-        {
-            X : int
-            Y : int
-        }
-
     let parse (lines : StringSplitEnumerator) : array<byte> * int * Coordinate * Coordinate =
         use mutable enum = lines
         let output = ResizeArray ()
diff --git a/AdventOfCode2022/Day14.fs b/AdventOfCode2022/Day14.fs
new file mode 100644
index 0000000..4d0746d
--- /dev/null
+++ b/AdventOfCode2022/Day14.fs
@@ -0,0 +1,186 @@
+namespace AdventOfCode2022
+
+open System
+
+#if DEBUG
+open System.Runtime.InteropServices
+open Checked
+#endif
+
+#if DEBUG
+#else
+#nowarn "9"
+#endif
+
+type Day14Shape = Coordinate ResizeArray
+
+[<RequireQualifiedAccess>]
+module Day14 =
+
+    let parse (lines : StringSplitEnumerator) : Day14Shape ResizeArray =
+        use mutable enum = lines
+        let output = ResizeArray ()
+
+        while enum.MoveNext () do
+            if not (enum.Current.IsWhiteSpace ()) then
+                let line = enum.Current.TrimEnd ()
+                let thisLine = ResizeArray ()
+                let mutable components = StringSplitEnumerator.make' ' ' line
+
+                while components.MoveNext () do
+                    let mutable coords = StringSplitEnumerator.make' ',' components.Current
+                    let x = StringSplitEnumerator.consumeInt &coords
+                    let y = StringSplitEnumerator.consumeInt &coords
+
+                    {
+                        X = x
+                        Y = y
+                    }
+                    |> thisLine.Add
+
+                    // the component '->'
+                    components.MoveNext () |> ignore
+
+                output.Add thisLine
+
+        output
+
+    let setLine (point1 : Coordinate) (point2 : Coordinate) (arr : Arr2D<bool>) : unit =
+        if point1.X = point2.X then
+            for y in min point1.Y point2.Y .. max point1.Y point2.Y do
+                Arr2D.set arr point1.X y true
+        else
+            assert (point1.Y = point2.Y)
+
+            for x in min point1.X point2.X .. max point1.X point2.X do
+                Arr2D.set arr x point1.Y true
+
+    type MutableCoordinate =
+        {
+            mutable X : int
+            mutable Y : int
+        }
+
+    let inline fallOnce (sandPos : MutableCoordinate) (arr : Arr2D<bool>) : bool =
+        if not (Arr2D.get arr sandPos.X (sandPos.Y + 1)) then
+            sandPos.Y <- sandPos.Y + 1
+            true
+        elif not (Arr2D.get arr (sandPos.X - 1) (sandPos.Y + 1)) then
+            sandPos.X <- sandPos.X - 1
+            sandPos.Y <- sandPos.Y + 1
+            true
+        elif not (Arr2D.get arr (sandPos.X + 1) (sandPos.Y + 1)) then
+            sandPos.X <- sandPos.X + 1
+            sandPos.Y <- sandPos.Y + 1
+            true
+        else
+            false
+
+    let part1 (lines : StringSplitEnumerator) : int =
+        let data = parse lines
+
+        let minX = data |> Seq.concat |> Seq.map (fun s -> s.X) |> Seq.min
+        let maxX = data |> Seq.concat |> Seq.map (fun s -> s.X) |> Seq.max
+        let maxY = data |> Seq.concat |> Seq.map (fun s -> s.Y) |> Seq.max
+
+#if DEBUG
+        let arr = Arr2D.zeroCreate<bool> (maxX + 1) (maxY + 1)
+#else
+        let board = Array.zeroCreate ((maxX + 1) * (maxY + 1))
+        use ptr = fixed board
+        let arr = Arr2D.zeroCreate<bool> ptr (maxX + 1) (maxY + 1)
+#endif
+        for line in data do
+            for i in 0 .. line.Count - 2 do
+                setLine line.[i] line.[i + 1] arr
+
+        let mutable sand = 0
+        let mutable keepGoing = true
+
+        while keepGoing do
+            let sandPos =
+                {
+                    MutableCoordinate.X = 500
+                    Y = 0
+                }
+
+            let mutable stillFalling = true
+
+            while stillFalling && sandPos.X >= minX && sandPos.X <= maxX && sandPos.Y < maxY do
+                let movedDown = fallOnce sandPos arr
+
+                if not movedDown then
+                    stillFalling <- false
+                    sand <- sand + 1
+                    Arr2D.set arr sandPos.X sandPos.Y true
+
+            if stillFalling then
+                keepGoing <- false
+
+        sand
+
+    let part2 (lines : StringSplitEnumerator) : int =
+        let data = parse lines
+
+        let maxX = data |> Seq.concat |> Seq.map (fun s -> s.X) |> Seq.max
+        let maxY = data |> Seq.concat |> Seq.map (fun s -> s.Y) |> Seq.max |> ((+) 2)
+
+#if DEBUG
+        let arr = Arr2D.zeroCreate<bool> (maxX + 1001) (maxY + 1)
+#else
+        let board = Array.zeroCreate ((maxX + 1001) * (maxY + 1))
+        use ptr = fixed board
+        let arr = Arr2D.zeroCreate<bool> ptr (maxX + 1001) (maxY + 1)
+#endif
+        for line in data do
+            for i in 0 .. line.Count - 2 do
+                let point1 =
+                    {
+                        Coordinate.X = line.[i].X + 500
+                        Y = line.[i].Y
+                    }
+
+                let point2 =
+                    {
+                        Coordinate.X = line.[i + 1].X + 500
+                        Y = line.[i + 1].Y
+                    }
+
+                setLine point1 point2 arr
+
+        setLine
+            {
+                X = 0
+                Y = maxY
+            }
+            {
+                X = maxX + 1000
+                Y = maxY
+            }
+            arr
+
+        let mutable sand = 0
+        let mutable keepGoing = true
+
+        while keepGoing do
+            let sandPos =
+                {
+                    MutableCoordinate.X = 1000
+                    Y = 0
+                }
+
+            let mutable stillFalling = true
+
+            while stillFalling && sandPos.Y < maxY do
+                let movedDown = fallOnce sandPos arr
+
+                if not movedDown then
+                    sand <- sand + 1
+                    Arr2D.set arr sandPos.X sandPos.Y true
+
+                    if sandPos.X = 1000 && sandPos.Y = 0 then
+                        keepGoing <- false
+
+                    stillFalling <- false
+
+        sand
diff --git a/BenchmarkDotNet.Artifacts/results/AdventOfCode2022.App.Benchmark11To15-report-github.md b/BenchmarkDotNet.Artifacts/results/AdventOfCode2022.App.Benchmark11To15-report-github.md
index 846eab8..2a4e31c 100644
--- a/BenchmarkDotNet.Artifacts/results/AdventOfCode2022.App.Benchmark11To15-report-github.md
+++ b/BenchmarkDotNet.Artifacts/results/AdventOfCode2022.App.Benchmark11To15-report-github.md
@@ -8,11 +8,13 @@ Apple M1 Max, 1 CPU, 10 logical and 10 physical cores
 
 
 ```
-|    Method | Day | IsPartOne |          Mean |       Error |      StdDev |
-|---------- |---- |---------- |--------------:|------------:|------------:|
-| **Benchmark** |  **11** |     **False** |      **7.318 μs** |   **0.0677 μs** |   **0.0634 μs** |
-| **Benchmark** |  **11** |      **True** |  **2,928.997 μs** |  **16.3883 μs** |  **15.3296 μs** |
-| **Benchmark** |  **12** |     **False** | **18,825.857 μs** | **166.2955 μs** | **155.5529 μs** |
-| **Benchmark** |  **12** |      **True** | **22,745.934 μs** | **156.3040 μs** | **146.2068 μs** |
-| **Benchmark** |  **13** |     **False** |    **345.806 μs** |   **2.1535 μs** |   **2.0144 μs** |
-| **Benchmark** |  **13** |      **True** |    **637.357 μs** |  **11.2223 μs** |  **10.4973 μs** |
+|    Method | Day | IsPartOne |          Mean |      Error |     StdDev |
+|---------- |---- |---------- |--------------:|-----------:|-----------:|
+| **Benchmark** |  **11** |     **False** |      **7.227 μs** |  **0.0235 μs** |  **0.0220 μs** |
+| **Benchmark** |  **11** |      **True** |  **2,870.251 μs** |  **5.5620 μs** |  **5.2027 μs** |
+| **Benchmark** |  **12** |     **False** | **20,360.326 μs** | **56.7953 μs** | **50.3475 μs** |
+| **Benchmark** |  **12** |      **True** | **21,665.562 μs** | **63.5696 μs** | **56.3528 μs** |
+| **Benchmark** |  **13** |     **False** |    **335.692 μs** |  **1.3893 μs** |  **1.2995 μs** |
+| **Benchmark** |  **13** |      **True** |    **615.878 μs** |  **1.9194 μs** |  **1.6028 μs** |
+| **Benchmark** |  **14** |     **False** |    **357.696 μs** |  **1.3375 μs** |  **1.1169 μs** |
+| **Benchmark** |  **14** |      **True** |  **4,645.477 μs** | **11.4562 μs** | **10.1556 μs** |
diff --git a/BenchmarkDotNet.Artifacts/results/AdventOfCode2022.App.Benchmark11To15-report.csv b/BenchmarkDotNet.Artifacts/results/AdventOfCode2022.App.Benchmark11To15-report.csv
index cc9e31f..dfe7e0f 100644
--- a/BenchmarkDotNet.Artifacts/results/AdventOfCode2022.App.Benchmark11To15-report.csv
+++ b/BenchmarkDotNet.Artifacts/results/AdventOfCode2022.App.Benchmark11To15-report.csv
@@ -1,7 +1,9 @@
 Method,Job,AnalyzeLaunchVariance,EvaluateOverhead,MaxAbsoluteError,MaxRelativeError,MinInvokeCount,MinIterationTime,OutlierMode,Affinity,EnvironmentVariables,Jit,Platform,PowerPlanMode,Runtime,AllowVeryLargeObjects,Concurrent,CpuGroups,Force,HeapAffinitizeMask,HeapCount,NoAffinitize,RetainVm,Server,Arguments,BuildConfiguration,Clock,EngineFactory,NuGetReferences,Toolchain,IsMutator,InvocationCount,IterationCount,IterationTime,LaunchCount,MaxIterationCount,MaxWarmupIterationCount,MemoryRandomization,MinIterationCount,MinWarmupIterationCount,RunStrategy,UnrollFactor,WarmupCount,Day,IsPartOne,Mean,Error,StdDev
-Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,11,False,7.318 μs,0.0677 μs,0.0634 μs
-Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,11,True,"2,928.997 μs",16.3883 μs,15.3296 μs
-Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,12,False,"18,825.857 μs",166.2955 μs,155.5529 μs
-Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,12,True,"22,745.934 μs",156.3040 μs,146.2068 μs
-Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,13,False,345.806 μs,2.1535 μs,2.0144 μs
-Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,13,True,637.357 μs,11.2223 μs,10.4973 μs
+Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,11,False,7.227 μs,0.0235 μs,0.0220 μs
+Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,11,True,"2,870.251 μs",5.5620 μs,5.2027 μs
+Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,12,False,"20,360.326 μs",56.7953 μs,50.3475 μs
+Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,12,True,"21,665.562 μs",63.5696 μs,56.3528 μs
+Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,13,False,335.692 μs,1.3893 μs,1.2995 μs
+Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,13,True,615.878 μs,1.9194 μs,1.6028 μs
+Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,14,False,357.696 μs,1.3375 μs,1.1169 μs
+Benchmark,DefaultJob,False,Default,Default,Default,Default,Default,Default,0000000000,Empty,RyuJit,Arm64,8c5e7fda-e8bf-4a96-9a85-a6e23a8c635c,.NET 7.0,False,True,False,True,Default,Default,False,False,False,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,Default,16,Default,14,True,"4,645.477 μs",11.4562 μs,10.1556 μs
diff --git a/BenchmarkDotNet.Artifacts/results/AdventOfCode2022.App.Benchmark11To15-report.html b/BenchmarkDotNet.Artifacts/results/AdventOfCode2022.App.Benchmark11To15-report.html
index 8409225..8dc2b64 100644
--- a/BenchmarkDotNet.Artifacts/results/AdventOfCode2022.App.Benchmark11To15-report.html
+++ b/BenchmarkDotNet.Artifacts/results/AdventOfCode2022.App.Benchmark11To15-report.html
@@ -2,7 +2,7 @@
 <html lang='en'>
 <head>
 <meta charset='utf-8' />
-<title>AdventOfCode2022.App.Benchmark11To15-20221213-200602</title>
+<title>AdventOfCode2022.App.Benchmark11To15-20221214-091719</title>
 
 <style type="text/css">
 	table { border-collapse: collapse; display: block; width: 100%; overflow: auto; }
@@ -24,12 +24,14 @@ Apple M1 Max, 1 CPU, 10 logical and 10 physical cores
 <table>
 <thead><tr><th>Method</th><th>Day</th><th>IsPartOne</th><th>   Mean</th><th>Error</th><th>StdDev</th>
 </tr>
-</thead><tbody><tr><td>Benchmark</td><td>11</td><td>False</td><td>7.318 &mu;s</td><td>0.0677 &mu;s</td><td>0.0634 &mu;s</td>
-</tr><tr><td>Benchmark</td><td>11</td><td>True</td><td>2,928.997 &mu;s</td><td>16.3883 &mu;s</td><td>15.3296 &mu;s</td>
-</tr><tr><td>Benchmark</td><td>12</td><td>False</td><td>18,825.857 &mu;s</td><td>166.2955 &mu;s</td><td>155.5529 &mu;s</td>
-</tr><tr><td>Benchmark</td><td>12</td><td>True</td><td>22,745.934 &mu;s</td><td>156.3040 &mu;s</td><td>146.2068 &mu;s</td>
-</tr><tr><td>Benchmark</td><td>13</td><td>False</td><td>345.806 &mu;s</td><td>2.1535 &mu;s</td><td>2.0144 &mu;s</td>
-</tr><tr><td>Benchmark</td><td>13</td><td>True</td><td>637.357 &mu;s</td><td>11.2223 &mu;s</td><td>10.4973 &mu;s</td>
+</thead><tbody><tr><td>Benchmark</td><td>11</td><td>False</td><td>7.227 &mu;s</td><td>0.0235 &mu;s</td><td>0.0220 &mu;s</td>
+</tr><tr><td>Benchmark</td><td>11</td><td>True</td><td>2,870.251 &mu;s</td><td>5.5620 &mu;s</td><td>5.2027 &mu;s</td>
+</tr><tr><td>Benchmark</td><td>12</td><td>False</td><td>20,360.326 &mu;s</td><td>56.7953 &mu;s</td><td>50.3475 &mu;s</td>
+</tr><tr><td>Benchmark</td><td>12</td><td>True</td><td>21,665.562 &mu;s</td><td>63.5696 &mu;s</td><td>56.3528 &mu;s</td>
+</tr><tr><td>Benchmark</td><td>13</td><td>False</td><td>335.692 &mu;s</td><td>1.3893 &mu;s</td><td>1.2995 &mu;s</td>
+</tr><tr><td>Benchmark</td><td>13</td><td>True</td><td>615.878 &mu;s</td><td>1.9194 &mu;s</td><td>1.6028 &mu;s</td>
+</tr><tr><td>Benchmark</td><td>14</td><td>False</td><td>357.696 &mu;s</td><td>1.3375 &mu;s</td><td>1.1169 &mu;s</td>
+</tr><tr><td>Benchmark</td><td>14</td><td>True</td><td>4,645.477 &mu;s</td><td>11.4562 &mu;s</td><td>10.1556 &mu;s</td>
 </tr></tbody></table>
 </body>
 </html>