| delta <- [V2 -1 0, V2 1 0, V2 0 -1, V2 0 1]
]
let succs = Q.fromList $ map Position neighbours
return succs
-- estimateCost :: Position -> CaveContext Int
| delta <- [V2 -1 0, V2 1 0, V2 0 -1, V2 0 1]
]
let succs = Q.fromList $ map Position neighbours
return succs
-- estimateCost :: Position -> CaveContext Int