Formt

AdventOfCode2023.FSharp/AdventOfCode2023.FSharp.Lib/Day7.fs

@@ -96,8 +96,10 @@ module Day7 =
             else
                 let mutable jokerCount = 0
                 let mutable jokerPos = 0
+
                 while jokerPos < tallyBuffer.Count && jokerCount = 0 do
                     let card, tally = tallyBuffer.[jokerPos]
+
                     if card = joker then
                         jokerCount <- tally
                     else

AdventOfCode2023.FSharp/AdventOfCode2023.FSharp.Lib/ResizeArray.fs

@@ -5,12 +5,13 @@ open System
 type ResizeArray<'T> =
     private
         {
-            mutable Array: 'T array
-            mutable Length: int
+            mutable Array : 'T array
+            mutable Length : int
         }
 
     member this.Count = this.Length
     member this.Clear () = this.Length <- 0
+
     member this.Add (t : 'T) =
         if this.Length < this.Array.Length then
             this.Array.[this.Length] <- t
@@ -20,7 +21,9 @@ type ResizeArray<'T> =
             Array.blit this.Array 0 newArray 0 this.Length
             newArray.[this.Length] <- t
             this.Array <- newArray
+
         this.Length <- this.Length + 1
+
     member this.Item
         with get (i : int) = this.Array.[i]
         and set (i : int) (t : 'T) = this.Array.[i] <- t
@@ -30,4 +33,8 @@ type ResizeArray<'T> =
 
 [<RequireQualifiedAccess>]
 module ResizeArray =
-    let create<'T> (capacity : int) = { Array = Array.zeroCreate<'T> capacity; Length = 0 }
+    let create<'T> (capacity : int) =
+        {
+            Array = Array.zeroCreate<'T> capacity
+            Length = 0
+        }