Найти маршрут перелета из города А в город В, не содержащий города С

@Rspointer · Регистрация: 24.10.2014

Нужна помощь с написанием программы про пути в ориентированном графе.
Текст задания: Дан список пар городов, между которыми есть авиарейсы. Найти маршрут перелета из города А в город В, не содержащий города С.
У меня есть один вариант решения, но он не работает. Помогите исправить его так, чтобы он работал, или написать с нуля.

Prolog

reys(Москва,Париж).  
reys(Москва,Нью_Йорк).  
reys(Москва,Владивосток).
reys(Париж,Лондон).  
reys(Париж,Нью_Йорк).  
reys(Нью_Йорк,Москва).
reys(Нью_Йорк,Сан_Франциско).    
reys(Нью_Йорк,Лондон).
reys(Владивосток,Сан_Франциско).  
reys(Сан_Франциско,Нью_Йорк).
 
path(A,B,[A|T]):-
          path1(A,B,[],T).
path1(A,B,_,[B]):-reys(A,B).
path1(A,B,K,[C|L]):-
          reys(A,C),
          not(member((C,B),K)),
          path1(C,B,[(C,B)|K],L).
 
marshrut(A,B,C,[A|T]):- path(A,B,[A|T]), not(member(C,[A|T])), unic([A|T]).
 
unic([]):-!.
unic([H|T]):-member(H,T),!,fail.
unic([_|T]):-!,unic(T).

@Black Fregat · 25.10.2014, 23:23

Первая мысль - просто выкинуть из графа "лишнюю" вершину.
Например, написать новый предикат

Prolog

1	filtered_reys(X,Y,Z):-reys(X,Y), X<>Z, Y<>Z.

А потом просто искать путь в новом графе, как обычно.

Опции темы