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

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

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

Код к задаче: «Напишите правила, определяющие следующие отношения - 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).

15   голосов, оценка 3.800 из 5


СОХРАНИТЬ ССЫЛКУ