(init) ( from to astar -- )

Vocabulary

path-finding.private

Inputs

from	an object
to	an object
astar	an object

Outputs

None

Definition

USING: accessors assocs heaps kernel ;

IN: path-finding.private

: (init) ( from to astar -- )
    swap >>goal H{ } clone over astar>> g<<
    HS{ } clone over astar>> in-closed-set<< H{ } clone >>origin
    H{ } clone >>in-open-set <min-heap> >>open-set [ 0 ] 2dip
    [ (add-to-open-set) ] [ astar>> g>> set-at ] 3bi ;