Метод на изкачването (Hill Climbing) - 2
extend([Node|Path],NewPaths) :-
findall([NewNode,Node|Path],
(arc(Node,NewNode,_),
not member(NewNode,[Node|Path])),
NewPaths).
reverse([],[]).
reverse([X|Rest],List):-
reverse(Rest,NewRest),
append(NewRest,[X],List).
Previous slide
Next slide
Back to first slide
View graphic version