Стили и методы программирования




Пример 6.4.1


way0(X,Y,Z):-consult(labyr),way(X,Y,Z).

way(X,X,[X]).

way(X,Y,[Y|Z]):-connect(U,Y), not member(Y,Z),way(X,U,Z).

way(X,Y,[Y|Z]):-connect(U,Y), way(X,U,Z).




Содержание  Назад  Вперед