:- use_module(jaratok).
:- op(100, xfy, [ind,erk]).


ut(A,B,Nap,[A-B : Jaratszam ind Indulas erk Erkezes]) :- 
			repulo(A,B,Nap,Jaratszam,Indulas, Erkezes).

ut(A,B,Nap,[A-C : Jarat1 ind Indulas1 erk Erkezes1 | Utvonal]) :-
			repulo(A,C,Nap,Jarat1,Indulas1, Erkezes1),
			ut(C,B,Nap,Utvonal),tovabbindul(Utvonal,Indulas2),
			vanido(Erkezes1,Indulas2).

repulo(A,B,Nap,Jaratszam,Indulas,Erkezes):- jarat(A,B,Lista), 
		               member(Indulas/ Erkezes/ Jaratszam/ Napok, Lista),
		               jonap(Nap,Napok).

jonap(Nap,Napok):-member(Nap,Napok).
jonap(Nap,naponta):- member(Nap, [hetf,kedd,sze,csut,pent,szo,vas]).

tovabbindul([_ : _ ind Indulas erk _ |_], Indulas).

vanido(Ora1:Perc1,Ora2:Perc2):- (Ora2 - Ora1)*60 + Perc2 - Perc1 >=40.



/*
Megjegyzés:

Ez csak egy "torzó", de talán ötletet adhat a saját megoldáshoz, továbblépéshez.
Természetesen máshogyan is megoldható a feladat.


Hívás pl.:
?- ut(A,B,Nap,[A-B : Jaratszam ind Indulas erk Erkezes]).

(utána pontosvessző :))

*/