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]
/
advent25
/
Main.hs
diff --git
a/advent25/Main.hs
b/advent25/Main.hs
index 0b9c02a2c1ec18716175f34b352f66975ec903b9..57d94f235444ec27b411efc7e89abd7ac09ea4bc 100644
(file)
--- a/
advent25/Main.hs
+++ b/
advent25/Main.hs
@@
-7,8
+7,8
@@
import qualified Data.Text.IO as TIO
import Data.Attoparsec.Text hiding (take)
-- import Control.Applicative
import Data.List (foldl', unfoldr, sort, delete)
import Data.Attoparsec.Text hiding (take)
-- import Control.Applicative
import Data.List (foldl', unfoldr, sort, delete)
-import qualified Data.Map as M
-import Data.Map ((!))
+import qualified Data.Map
.Strict
as M
+import Data.Map
.Strict
((!))
import qualified Data.Set as S
import Data.Set ((\\))
import qualified Data.Sequence as Q
import qualified Data.Set as S
import Data.Set ((\\))
import qualified Data.Sequence as Q
@@
-93,7
+93,7
@@
nodeP :: Parser (String, [String])
nameP :: Parser String
graphP = M.fromList <$> nodeP `sepBy` endOfLine
nameP :: Parser String
graphP = M.fromList <$> nodeP `sepBy` endOfLine
-nodeP = (,) <$>
(nameP <* ": ") <*> (nameP `sepBy` " ")
+nodeP = (,) <$>
nameP <* ": " <*> nameP `sepBy` " "
nameP = many1 letter
nameP = many1 letter