Итеративно търсене по нива (Iterative deepening)
Тук като груба оценка за максималната дълбочина е използван броя на дъгите в графа.
Търсенето започва при Depth=1
iterative_deepening(Stack,Goal,FinalPath) :-
findall(arc(X,Y,Z),arc(X,Y,Z),Graph),
length(Graph,Max), iterative_deepening1(1,Stack,Goal,FinalPath,Max).