George Lukas george-lukas
george-lukas
/ astar.hs
Created
April 21, 2016 23:49
— forked from abhin4v/astar.hs
A* (A star) search in haskell
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| import qualified Data.PQueue.Prio.Min as PQ | |
| import qualified Data.HashSet as Set | |
| import qualified Data.HashMap.Strict as Map | |
| import Data.Hashable (Hashable) | |
| import Data.List (foldl') | |
| import Data.Maybe (fromJust) | |
| astarSearch :: (Eq a, Hashable a) => a -> (a -> Bool) -> (a -> [(a, Int)]) -> (a -> Int) -> Maybe (Int, [a]) | |
| astarSearch startNode isGoalNode nextNodeFn heuristic = | |
| astar (PQ.singleton (heuristic startNode) (startNode, 0)) |