From e40bbf7203e27e44d8317077787d2da4173c2fff Mon Sep 17 00:00:00 2001
From: Smaug123 <patrick+github@patrickstevens.co.uk>
Date: Thu, 7 Dec 2023 22:32:30 +0000
Subject: [PATCH] Name

---
 .../AdventOfCode2023.FSharp.Lib/Day7.fs       | 20 +++++++++----------
 1 file changed, 10 insertions(+), 10 deletions(-)

diff --git a/AdventOfCode2023.FSharp/AdventOfCode2023.FSharp.Lib/Day7.fs b/AdventOfCode2023.FSharp/AdventOfCode2023.FSharp.Lib/Day7.fs
index cde8c22..230ad03 100644
--- a/AdventOfCode2023.FSharp/AdventOfCode2023.FSharp.Lib/Day7.fs
+++ b/AdventOfCode2023.FSharp/AdventOfCode2023.FSharp.Lib/Day7.fs
@@ -50,26 +50,26 @@ module Day7 =
     type RankedHand = uint32
 
     [<Literal>]
-    let fifteen = 14ul
+    let fourteen = 14ul
 
     [<Literal>]
-    let fifteenFive = fifteen * fifteen * fifteen * fifteen * fifteen
+    let fourteenFive = fourteen * fourteen * fourteen * fourteen * fourteen
 
     [<Literal>]
-    let fifteenFour = fifteen * fifteen * fifteen * fifteen
+    let fourteenFour = fourteen * fourteen * fourteen * fourteen
 
     [<Literal>]
-    let fifteenThree = fifteen * fifteen * fifteen
+    let fourteenThree = fourteen * fourteen * fourteen
 
     [<Literal>]
-    let fifteenTwo = fifteen * fifteen
+    let fourteenTwo = fourteen * fourteen
 
     let toInt (hand : Hand) (contents : HandContents) : RankedHand =
-        uint32 hand * fifteenFive
-        + uint32 contents.First * fifteenFour
-        + uint32 contents.Second * fifteenThree
-        + uint32 contents.Third * fifteenTwo
-        + uint32 contents.Fourth * fifteen
+        uint32 hand * fourteenFive
+        + uint32 contents.First * fourteenFour
+        + uint32 contents.Second * fourteenThree
+        + uint32 contents.Third * fourteenTwo
+        + uint32 contents.Fourth * fourteen
         + uint32 contents.Fifth
 
     let inline parseHand (tallyBuffer : ResizeArray<_>) (adjustJoker : bool) (s : ReadOnlySpan<char>) : RankedHand =