projects
/
advent-of-code-23.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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
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
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
numbersP = decimal `sepBy` skipSpace
nameP = many1 letter