(find-path) ( astar -- path/f )

Vocabulary

path-finding.private

Inputs

astar

an object

Outputs

path/f

an object

Definition

USING: accessors heaps kernel ;

IN: path-finding.private

: (find-path) ( astar -- path/f )
    dup open-set>> heap-empty?
    [ drop f ] [
        [ get-first ] keep 2dup goal>> =
        [ build-path ] [ [ handle ] [ (find-path) ] bi ] if
    ] if ;