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

Vocabulary

path-finding.private

Inputs

astar

an object

Outputs

path/f

an object

Definition

USING: accessors combinators heaps kernel ;

IN: path-finding.private

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