Напишите правила, определяющие следующие отношения - Prolog

Формулировка задачи:

•

дочь, сын; • муж, жена (исходя из наличия общих детей); • внук, бабушка.

Решение задачи: «Напишите правила, определяющие следующие отношения»

textual
                            Листинг программы 
                        

                            parent(виктор, саша).
parent(виктор, юля).
parent(катя, юля).
parent(катя, саша).
parent(юля, маша).
parent(рома, даша).
parent(рома, маша).
parent(юля, даша).
parent(юля, петя).
perent(дима, виктор).
perent(алёна, виктор).
male(виктор).
male(рома).
male(петя).
male(саша).
male(дима).
female(алёна).
female(юля).
female(даша).
female(маша).
female(катя).
mother(X,Y):-parent(X,Y), female(X).
father(X,Y):-parent(X,Y), male(X).
friend(X, Y):-parent(X, Y).
friend(X, Y):-parent(Y, X).
friend(X, Y):-parent(Z, X), parent(Z, Y).
normal_child(Father, Mother, Child):-father(Father, Child), mother(Mother, Child).
friend2(X, Y):-parent(X, Y); parent(Y, X); parent(Z, X), parent(Z, Y).
doughter(X,Y):-parent(Y,X), female(X).
son(X,Y):-parent(Y,X), male(X).
wife(Mother,Father):-normal_child(Father, Mother, Child), female(Mother).
husband(Father,Mother):-normal_child(Father, Mother, Child), male(Father).
 
grandmother(Baba,Ditya):-parent(Baba,Son), parent(Son,Ditya), female(Baba).
 
grandson(Vnuk, Ded):-parent(Ded, Otec), parent(Otec, Vnuk), male(Vnuk).
                        