Initial attempt at optimising day 23

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

diff --git a/advent05/Main.hs b/advent05/Main.hs
index d8bb80651619e20b6408db47ece5cfb9e999f897..16e4f4cb270dfd5af3d03e0344d889e034d88e6a 100644 (file)
--- a/advent05/Main.hs
+++ b/advent05/Main.hs
@@ -125,10 +125,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 = ruleify <$> (decimal <* space) <*> (decimal <* space) <*> decimal
+ruleP = ruleify <$> decimal <* space <*> decimal <* space <*> decimal
 
 numbersP = decimal `sepBy` skipSpace
 nameP = many1 letter