在列表中使用斜杠解析谓词

Question

我有这样的事实：

timetable(paris, london, [10:00/11:00, 22:00/23:00])

我怎么知道在某一时刻是否有往返两地的航班？

我已经尝试了以下几个不成功的方法：

flight_hour(Hour, [Hour/B|T]).
flight_hour(Hour, [A/B|T]) :- flight_hour(Hour, T).
flight(Place1, Place2, Hour) :- timetable(Place1, Place2, X), flight_hour(Hour, X).

斜杠是什么意思？

Answer 1

您可以这样做并指定数据的结构：

timetable(paris, london, [10:00/11:00, 22:00/23:00]).

flight_hour(Hour:Min, Hour:Min/_:_).
flight_hour(Hour, [_:_/_:_,T]) :- 
    flight_hour(Hour, T).
flight(Place1, Place2, Hour):- 
    timetable(Place1, Place2, X), 
    flight_hour(Hour, X).

?- flight(paris,london,T).
T = 22:0 %i don't know if this is the result you want