SECOND LAB, Prolog

Language: Layout:

% --------------------------------------------------ЗАДАЧА 1--------------------------------------------------
hobby(дима, кодить).
hobby(тимур, кодить).
hobby(владимир, кодить).
hobby(леон, читать).
hobby(илья, водить).
hobby(олег, лежать).
hobby(иван, бегать).
% --------------------------------------------------ЗАДАЧА 2--------------------------------------------------
favorite(андрей, физика).
favorite(леонид, английский).
favorite(илья, русский).
favorite(дима, математика).
favorite(тимур, математика).

fizmat(X):- favorite(X, математика), hobby(X, кодить).
% --------------------------------------------------ЗАДАЧА 3--------------------------------------------------
male(андрей).
male(богдан).
male(владлен).
male(гарри).
male(добрыня).
male(евгений).

female(алиса).
female(божена).
female(варвара).
female(грета).
female(дора).
female(ева).

parent(андрей, владлен).
parent(алиса, владлен).
parent(богдан, варвара).
parent(божена, варвара).
parent(владлен, гарри).
parent(владлен, грета).
parent(владлен, добрыня).
parent(владлен, дора).
parent(владлен, евгений).
parent(владлен, ева).
parent(варвара, гарри).
parent(варвара, грета).
parent(варвара, добрыня).
parent(варвара, дора).
parent(варвара, евгений).
parent(варвара, ева).

father(X, Y)   :- parent(X, Y), male(X).
mother(X, Y)   :- parent(X, Y), female(X).
brother(X, Y)  :- parent(R, X), parent(R, Y), male(X).
sister(X, Y)   :- parent(R, X), parent(R, Y), female(X).
grandP(X, Y)   :- (parent(X, R); parent(X, R2)), parent(R, Y), parent(R2, Y), male(X).
grandM(X, Y)   :- (parent(X, R); parent(X, R2)), parent(R, Y), parent(R2, Y), female(X).
% ----------------------------------------------------END-----------------------------------------------------

[ - ] Show input
Absolute running time: 0.46 sec, cpu time: 0.24 sec, memory peak: 7 Mb, absolute service time: 0,67 sec