% Program zadanie2
% Baza wiedzy o tym co kto lubi
% Definiowane predykaty
% lubi/2
% osoba/1
% rzecz/1
% hobby/2
%============================================osoba/1

% Definicja predykatu osoba.
% osoba(X)
% Opis - reprezentuje imie osoby
 osoba(jan)
 osoba(maria)
 osoba(helena)
 osoba(tomasz)
 osoba(piotr)
 osoba(ewa)

%============================================osoba/1

%============================================rzecz/1

% Definicja predykatu rzecz/1
% rzecz(X)
% Opis - reprezentuje nazwe rzeczy
 rzecz(czekolada)
 rzecz(wino)
%============================================rzecz/1

%============================================hobby/2


% Definicja predykatu hobby/2
% hobby(X,Y).
% opis: spełniony gdy Y jest hobby X
%============================================hobby/2
 hobby(jan,turystyka).
 hobby(helena,turystyka).
 hobby(tomasz,teatr).
 hobby(piotr,teatr).

%============================================hobby/2


%============================================lubi/2
% Definicja predykatu lubi/2
% lubi(X,Y).
% opis: spełniony , gdy X lubi Y
% ---------------------------------------------------------lubi/2
    lubi(jan,maria).
    lubi(jan,czekolada).
    lubi(piotr,wino).
    lubi:-
        hobby(X,Z),
        hobby(Y,Z),
        X/==Y.
    lubi(ewa,rzecz(X)):-
                rzecz(X),
                lubi(jan,X).
    lubi(ewa,osoba(X)):-
                hobby(X,_).
%-----------------------------------------------------------lubi/2