task3, Prolog - rextester

Language: Layout:

%commands to the interpreter are submitted from stdin input ('show input' box below)
%'halt.' will be automatically appended to stdin input.
%swi-prolog 7.6.4

program :- write('Hello').
parent(lida,lena).
parent(lida,vlad).
parent(lida,natalia).
parent(vladimir,lena).
parent(vladimir,vlad).
parent(vladimir,natalia).
parent(lena,yana).
parent(roman,yana).
parent(vlad,misha).
parent(natasha,misha).
parent(natalia,sofia).
parent(natalia,bogdan).
parent(konstantin,sofia).
parent(konstantin,bogdan).

female(lida).
female(lena).
female(natalia).
female(natasha).
female(sofia).

male(vlad).
male(vladimir).
male(misha).
male(roman).
male(konstantin).
male(bogdan).

daughter(X,Y):-parent(Y,X),female(X).
son(X,Y):-parent(Y,X),male(X).
father(X,Y):-parent(X,Y),male(X).
mother(X,Y):-parent(X,Y),female(X).
grandfather(X,Y):-parent(X,Z),parent(Z,Y),male(X).
grandmother(X,Y):-parent(X,Z),parent(Z,Y),female(X).
sister(X,Y):-parent(Z,X),parent(Z,Y),female(X).
brother(X,Y):-parent(Z,X),parent(Z,Y),male(X).

[ - ] Show input
Absolute running time: 0.32 sec, cpu time: 0.18 sec, memory peak: 7 Mb, absolute service time: 0,46 sec