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

Use distance from math.vectors

db4
Samuel Tardieu 2010-03-06 14:14:54 +01:00
parent eff65915b0
commit 542096b528
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
extra/astar/astar-tests.factor
View File

@ -37,11 +37,8 @@ IN: astar.tests
: cost ( from to -- cost ) : cost ( from to -- cost )
2dup [ first ] bi@ = [ [ second ] bi@ > 1 5 ? ] [ 2drop 2 ] if ; 2dup [ first ] bi@ = [ [ second ] bi@ > 1 5 ? ] [ 2drop 2 ] if ;
: heuristic ( pos1 pos2 -- distance )
v- [ sq ] map sum sqrt ;
: test1 ( to -- path considered ) : test1 ( to -- path considered )
{ 1 1 } swap [ neighbours ] [ cost ] [ heuristic ] <astar> [ find-path ] [ considered ] bi ; { 1 1 } swap [ neighbours ] [ cost ] [ distance ] <astar> [ find-path ] [ considered ] bi ;
>> >>
! Existing path from s to f ! Existing path from s to f