Faster day 14, with mutable unboxed arrays

[advent-of-code-23.git] / advent05 / MainDirect.hs

diff --git a/advent05/MainDirect.hs b/advent05/MainDirect.hs
index ca59a51b682b5e9ae499ff1dc35e752d235ff2af..9a56bba965800fde924c7ef09418590a4478900c 100644 (file)
--- a/advent05/MainDirect.hs
+++ b/advent05/MainDirect.hs
@@ -82,10 +82,10 @@ seedsP = "seeds: " *> numbersP
 almanacP = M.fromList <$> (aMapP `sepBy` blankLineP)
 
 aMapP = aMapify <$> aMapHeaderP <*> rulesP
-aMapHeaderP = (,) <$> (nameP <* "-to-") <*> (nameP <* " map:" <* endOfLine)
+aMapHeaderP = (,) <$> nameP <* "-to-" <*> nameP <* " map:" <* endOfLine
 
 rulesP = ruleP `sepBy` endOfLine
-ruleP = Rule <$> (decimal <* space) <*> (decimal <* space) <*> decimal
+ruleP = Rule <$> decimal <* space <*> decimal <* space <*> decimal
 
 numbersP = decimal `sepBy` skipSpace
 nameP = many1 letter