cost-through ( origin node astar -- cost )


Vocabulary
path-finding.private

Inputs
originan object
nodean object
astaran object


Outputs
costan object


Definition
USING: accessors assocs kernel math path-finding ;

IN: path-finding.private

: cost-through ( origin node astar -- cost )
[ astar>> cost ] [ nip astar>> g>> at ] 3bi + ;