X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent15%2FMainSlow.hs;h=17fe1b6a17fb4eef5317b0240bb522508cd27333;hb=1ab3e062eb1b3b28a8aead9834afc962ca142451;hp=3a77a021a98bfac9053f803e2ab37ede80df8415;hpb=513138024a69ef9f5ade5031cd945567b6510689;p=advent-of-code-21.git

diff --git a/advent15/MainSlow.hs b/advent15/MainSlow.hs
index 3a77a02..17fe1b6 100644
--- a/advent15/MainSlow.hs
+++ b/advent15/MainSlow.hs
@@ -1,12 +1,7 @@
--- 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 +13,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.<|) 
@@ -217,15 +210,3 @@ makeAgendum previous newPosition =
                       , _trail = newTrail
                       , _cost = incurred + predicted
                       }
--- makeAgendum ::  SearchState s => (Q.Seq s) -> Int -> s -> CaveContext (Agendum s)
--- makeAgendum previous prevCost newPosition = 
---     do predicted <- estimateCost newPosition
---        grid <- asks _grid
---        let newTrail = previous |> newPosition
---        newPositionCost <- entryCost newPosition
---        let incurred = prevCost + newPositionCost
---        return Agendum { _current = newPosition
---                       , _trail = newTrail
---                       , _cost = incurred + predicted
---                       }
---                       
\ No newline at end of file