steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge remote-tracking branch 'abeaumont/master'

db4
John Benediktsson 2011-08-26 19:53:11 -07:00
parent a429f67b87 89ac114390
commit 12d5d61179
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/path-finding/path-finding.factor
View File

@ -40,7 +40,7 @@ TUPLE: (astar) astar goal origin in-open-set open-set ;
: ?set-g ( origin node astar -- ) : ?set-g ( origin node astar -- )
[ cost-through ] 3keep [ swap ] 2dip [ cost-through ] 3keep [ swap ] 2dip
3dup astar>> g>> at [ 1/0. ] unless* > [ 4drop ] [ set-g ] if ; 3dup astar>> g>> at [ 1/0. ] unless* >= [ 4drop ] [ set-g ] if ;
: build-path ( target astar -- path ) : build-path ( target astar -- path )
[ over ] [ over [ [ origin>> at ] keep ] dip ] produce 2nip reverse ; [ over ] [ over [ [ origin>> at ] keep ] dip ] produce 2nip reverse ;