X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent12%2FMain.hs;h=c0228990a9c89f1018f7fd21f0bf9e51a402f4e8;hb=f961efa630553f9630649481bc6380ec70949720;hp=a191524eaeee1810f59c0562545b8ecb9c7ef09d;hpb=e385b0b56cb1dd3147e10d3087ade2b0a1dc1ce1;p=advent-of-code-21.git

diff --git a/advent12/Main.hs b/advent12/Main.hs
index a191524..c022899 100644
--- a/advent12/Main.hs
+++ b/advent12/Main.hs
@@ -1,5 +1,4 @@
--- Writeup at https://work.njae.me.uk/2021/12/09/advent-of-code-2021-day-8/
-
+-- Writeup at https://work.njae.me.uk/2021/12/13/advent-of-code-2021-day-12/
 
 import Data.Text ()
 import qualified Data.Text.IO as TIO
@@ -16,7 +15,7 @@ import Data.Set ((\\))
 
 data Path = Path String         -- current cave
                  [String]       -- caves visited
-                 (S.Set String) -- closed set of small cavees visited
+                 (S.Set String) -- closed set of small caves visited
                  (Maybe String) -- the small cave we've visited twice
   deriving (Eq, Ord, Show)
 
@@ -24,7 +23,6 @@ type PathSet = S.Set Path
 type Graph = M.Map String (S.Set String)
 
 
-
 main :: IO ()
 main = 
   do  text <- TIO.readFile "data/advent12.txt"
@@ -72,7 +70,7 @@ extendPath graph (Path current trail visited returned)
 
 recordResult :: Path -> PathSet
 recordResult path@(Path current _ _ _)
-  | current == "end" = S.singleton path -- (Path current trail visited)
+  | current == "end" = S.singleton path
   | otherwise = S.empty
 
 isSmall :: String -> Bool