Търсене в ограничена дълбочина (Depth-bound)
extend1(Depth,Path,NewPaths) :-
length(Path,Len),
Len < Depth, !,
extend(Path,NewPaths).
extend1(_,_,[]).
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