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
/
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
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 = Rule <$>
(decimal <* space) <*> (decimal <* space)
<*> decimal
+ruleP = Rule <$>
decimal <* space <*> decimal <* space
<*> decimal
numbersP = decimal `sepBy` skipSpace
nameP = many1 letter
numbersP = decimal `sepBy` skipSpace
nameP = many1 letter