Напишите правила, определяющие следующие отношения - 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).
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

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


СДЕЛАЙТЕ РЕПОСТ