projects
/
advent-of-code-17.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
11ba434
)
Tidying
author
Neil Smith
<neil.git@njae.me.uk>
Sun, 24 Dec 2017 14:43:03 +0000
(14:43 +0000)
committer
Neil Smith
<neil.git@njae.me.uk>
Sun, 24 Dec 2017 14:43:03 +0000
(14:43 +0000)
src/advent24/advent24.hs
patch
|
blob
|
history
diff --git
a/src/advent24/advent24.hs
b/src/advent24/advent24.hs
index df3136b9e3e138c49b300c9e6a45290cdc9242c6..f048c65d00ad40b2ddf2d4660c40fcfe37f7b460 100644
(file)
--- a/
src/advent24/advent24.hs
+++ b/
src/advent24/advent24.hs
@@
-70,7
+70,7
@@
extendOneBridge parts bridge =
grow :: Bridge -> Part -> Bridge
grow bridge part = bridge {bridgeParts = bp', requiring = req'}
where req = requiring bridge
grow :: Bridge -> Part -> Bridge
grow bridge part = bridge {bridgeParts = bp', requiring = req'}
where req = requiring bridge
- req' = B.findMin $ B.delete req part
+ req' = B.findMin $ B.delete req part
-- can get away with `findMin` as I know there are only two elements in a `Part`
bp' = B.insert part $ bridgeParts bridge
candidates :: Parts -> Bridge -> Candidates
bp' = B.insert part $ bridgeParts bridge
candidates :: Parts -> Bridge -> Candidates
@@
-104,11
+104,11
@@
integer = lexeme L.integer
symbol = L.symbol sc
slash = symbol "/"
symbol = L.symbol sc
slash = symbol "/"
-partsP = partP `sepBy` newline
+partsP =
B.fromList <$>
partP `sepBy` newline
partP = B.fromList <$> integer `sepBy` slash
successfulParse :: Text -> Parts
successfulParse input =
case parse partsP "input" input of
partP = B.fromList <$> integer `sepBy` slash
successfulParse :: Text -> Parts
successfulParse input =
case parse partsP "input" input of
- Left _error -> B.empty
-- TIO.putStr $ T.pack $ parseErrorPretty err
- Right partsList ->
B.fromList
partsList
\ No newline at end of file
+ Left _error -> B.empty
+ Right partsList -> partsList
\ No newline at end of file