From 81bfeacbe01a72b4390a96c7d3a6cee7c51efbeb Mon Sep 17 00:00:00 2001 From: Smaug123 Date: Thu, 14 Dec 2023 17:56:24 +0000 Subject: [PATCH] Fix oob error --- .../AdventOfCode2023.FSharp.Lib/Day14.fs | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/AdventOfCode2023.FSharp/AdventOfCode2023.FSharp.Lib/Day14.fs b/AdventOfCode2023.FSharp/AdventOfCode2023.FSharp.Lib/Day14.fs index cab43f8..3631a35 100644 --- a/AdventOfCode2023.FSharp/AdventOfCode2023.FSharp.Lib/Day14.fs +++ b/AdventOfCode2023.FSharp/AdventOfCode2023.FSharp.Lib/Day14.fs @@ -27,7 +27,7 @@ module Day14 = targetPos <- pos + 1 let mutable hasMoved = false - while not hasMoved do + while pos < arr.Height && not hasMoved do if Arr2D.get arr col pos = 0uy then targetPos <- pos hasMoved <- true @@ -59,7 +59,7 @@ module Day14 = targetPos <- pos - 1 let mutable hasMoved = false - while not hasMoved do + while pos >= 0 && not hasMoved do if Arr2D.get arr col pos = 0uy then targetPos <- pos hasMoved <- true @@ -91,7 +91,7 @@ module Day14 = targetPos <- pos - 1 let mutable hasMoved = false - while not hasMoved do + while pos >= 0 && not hasMoved do if Arr2D.get arr pos row = 0uy then targetPos <- pos hasMoved <- true @@ -123,7 +123,7 @@ module Day14 = targetPos <- pos + 1 let mutable hasMoved = false - while not hasMoved do + while pos < arr.Width && not hasMoved do if Arr2D.get arr pos row = 0uy then targetPos <- pos hasMoved <- true