Ответ в теме: Обход графа в глубину — Undefined procedure: dfs

      Комментарии к записи Ответ в теме: Обход графа в глубину — Undefined procedure: dfs отключены
#1838

questioner
Участник

Да, скопировал код из описания графа и листинга 4 в один файл. При попытке вызвать функцию dfs, как раз и возникает ошибка.
Использую SWI Prolog:

########################
#!/usr/bin/swipl -q -t main -f
node(a).
node(b).
edge(a, b).
dfs(A, B, _, [(A, B)]):-
edge(A, B), !.
dfs(A, B, VN, [(A, X)|TR]):-
edge(A, X), not(member(X, VN)),
dfs(X, B, [A|VN], TR).