Added links to blog posts

[advent-of-code-21.git] / advent15 / Main.hs

diff --git a/advent15/Main.hs b/advent15/Main.hs
index 227f16018acb46da0daf10746c6e642ed180a122..758bdc6efc026c0428b800262dd6fae8cf437d5d 100644 (file)
--- a/advent15/Main.hs
+++ b/advent15/Main.hs
@@ -1,12 +1,9 @@
--- Writeup at https://work.njae.me.uk/2021/12/13/advent-of-code-2021-day-13/
-
+-- Writeup at https://work.njae.me.uk/2021/12/16/advent-of-code-2021-day-15/
 
 import Debug.Trace
 
 -- import qualified Data.Text.IO as TIO
 
--- import qualified Data.Map.Strict as M
--- import Data.Map.Strict ((!))
 import qualified Data.PQueue.Prio.Min as P
 import qualified Data.Set as S
 import qualified Data.Sequence as Q
@@ -18,8 +15,6 @@ import Control.Lens hiding ((<|), (|>), (:>), (:<))
 import Data.Maybe (fromMaybe)
 import Linear (V2(..), (^+^), (^-^), (*^), (^*))
 import Data.Array.IArray
--- import Data.List
-
 
 pattern Empty   <- (Q.viewl -> Q.EmptyL)  where Empty = Q.empty
 pattern x :< xs <- (Q.viewl -> x Q.:< xs) where (:<)  = (Q.<|)