find-path* ( start quot astar -- path/f )

Vocabulary

path-finding

Inputs

start	a node
quot	a quotation with stack effect ( node -- ? )
astar	an astar

Outputs

path/f

an optimal path starting from start, or f if no such path exists

Word description

Find a path starting from start using the A* algorithm. The end of the path has been found when quot returns a true value.

Definition

USING: accessors kernel path-finding.private ;

IN: path-finding

: find-path* ( start quot astar -- path/f )
    (astar) new [ astar<< ] keep [ (init) ] [ (find-path*) ] bi
    ;