Търсене в ширина (Breadth-first)

breadth_first([[Goal|Path]|_],Goal, FinalPath):-

reverse([Goal|Path],FinalPath).

breadth_first([Path|Queue],Goal,FinalPath) :-

extend(Path,NewPaths),

append(Queue,NewPaths,NewQueue),

breadth_first(NewQueue,Goal,FinalPath).

extend([Node|Path],NewPaths) :-

findall([NewNode,Node|Path],

(arc(Node,NewNode,_),

not member(NewNode,[Node|Path])),

NewPaths).

Previous slide

Next slide

Back to first slide

View graphic version