Mardoqueo
Eva
José
Francisca
Francisc
Adolfo Rene
Natali
Adolfo
Edgar Cristia
Marvi
Soany Elizabeth
hombre('Mardoqueo'). hombre('Adolfo'). hombre('Adolfo'). hombre('Jose'). hombre('Edgar'). hombre('Edgar'). hombre('Rene'). hombre('Rodrigo'). hombre('Marvin'). hombre('Diego'). hombre('Cristian'). hombre('Daniel'). hombre('Wilmar'). hombre('Bernabe'). mujer('Francisca'). mujer('Eva'). mujer('Francisca'). mujer('Edra'). mujer('Maria'). mujer('Natali'). mujer('Eslie'). mujer('Lourdes').
Bernabe
Rodrigo
Eslie
Diego
Amapola
Sandra
EDRA Lourde
María
Edgar
Herla
Valentina
Danie
Wilmar
Trusted by over 1 million members
Try Scribd FREE for 30 days to access over 125 million titles without ads or interruptions! Start Free Trial Cancel Anytime.
Trusted by over 1 million members
Try Scribd FREE for 30 days to access over 125 million titles without ads or interruptions! Start Free Trial Cancel Anytime.
mujer('Soany'). mujer('Valentina'). mujer('Elizabeth'). mujer('Sandra'). mujer('Amapola').
padre('Carlos','Juan'). padre('Carlos','Carla'). padre('Maria','Juan'). padre('Maria','Carla'). padre('Juan','Pablo'). padre('Juan','Mateo'). padre('Paula','Pablo'). padre('Paula','Mateo'). padre('Pedro','Andres'). padre('Carla','Andres'). padre('Andres','Edwin'). padre('Lorena','Edwin'). esposos('Maria','Carlos'). esposos('Juan','Paula'). esposos('Pedro','Carla'). esposos('Andres','Lorena'). esposos('Carlos','Maria'). esposos('Paula','Juan'). esposos('Carla','Pedro'). esposos('Lorena','Andres').
diferente(X,Y):- X \== Y. hijo(A,B):-padre(B,A),hombre(A). hija(A,B):-padre(B,A),mujer(A). nieto(A,B):-padre(B,C),padre(C,A),hombre(A).%sol nieto(A,B):-padre(B,C),padr e(C,A),hombre(A).%solo o es nieto hombre hermano(A,B):-padre(C,A),padre(C,B),diferente(A,B). primo(A,B):-padre(C,A),padre(D,B),hermano(C,D),diferente(D,C). tio(A,B):-padre(C,B),hermano(C,A),hombre(A). abuelo(A,B):-nieto(B,A). cuñado(A,B):-esposos(B,C),hermano(A,C). tia(A,B):-padre(C,B),hermano(C,A),mujer(A). sobrino(A,B):-hijo(A,C),hermano(C,B),hombre(A). sobrina(A,B):-hija(A,C),hermano(C,B),mujer(A).