Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- tripDays([X],_,[],1) :- atomic(X).
- tripDays([P, P2 | Ps], Time, FlightTimes, Days) :-
- airport(_,Code,P),
- airport(_,Code2,P2),
- ight(_, Code, Code2,Tim,_,_),
- FlightTimes = [Tim|Ts],
- tripDays([P2|Ps], Time, Ts, DaysN),
- (P \= P2 -> Days is DaysN + 1;Days = DaysN)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement