% Prolog – Maturareise
% Drei Personen suchen ein gemeinsames Reiseziel und eine gemeinsame Woche.

mag(ute, berge).
mag(ute, meer).
mag(hekla, berge).
mag(hekla, meer).
mag(franz, meer).

hat_zeit(franz, kw26).
hat_zeit(franz, kw27).
hat_zeit(hekla, kw27).
hat_zeit(ute, kw27).

faehrt_mit(Person, Ort, Woche) :-
    mag(Person, Ort),
    hat_zeit(Person, Woche).

alle_fahren_mit(Ort, Woche) :-
    faehrt_mit(ute, Ort, Woche),
    faehrt_mit(hekla, Ort, Woche),
    faehrt_mit(franz, Ort, Woche).
