Faster day 14, with mutable unboxed arrays

[advent-of-code-23.git] / advent25 / Main.hs

diff --git a/advent25/Main.hs b/advent25/Main.hs
index 0b9c02a2c1ec18716175f34b352f66975ec903b9..57d94f235444ec27b411efc7e89abd7ac09ea4bc 100644 (file)
--- a/advent25/Main.hs
+++ b/advent25/Main.hs
@@ -7,8 +7,8 @@ import qualified Data.Text.IO as TIO
 import Data.Attoparsec.Text hiding (take)
 -- import Control.Applicative
 import Data.List (foldl', unfoldr, sort, delete)
-import qualified Data.Map as M
-import Data.Map ((!))
+import qualified Data.Map.Strict as M
+import Data.Map.Strict ((!))
 import qualified Data.Set as S
 import Data.Set ((\\))
 import qualified Data.Sequence as Q
@@ -93,7 +93,7 @@ nodeP :: Parser (String, [String])
 nameP :: Parser String
 
 graphP = M.fromList <$> nodeP `sepBy` endOfLine
-nodeP = (,) <$> (nameP <* ": ") <*> (nameP `sepBy` " ")
+nodeP = (,) <$> nameP <* ": " <*> nameP `sepBy` " "
 
 nameP = many1 letter