A*
sort([],Goal,[]).
sort(List,Goal,[MinPath|SortedList]):-
min(List,Goal,MinPath,NewList),
sort(NewList,Goal, SortedList).
min([Path1|List],Goal,Path2,[Path1|NewList]):-
min(List,Goal,Path2,NewList),
f(Path1,Goal,F1),
f(Path2,Goal,F2),
F2<F1,!.
min([Path|List],Goal,Path,List).
Previous slide
Next slide
Back to first slide
View graphic version