Base de Dados

Base de Dados

masculino(josé).
masculino(paulino).
masculino(isrrael).
feminino(maria).
feminino(josiane).
feminino(joene).
feminino(josilaine).
feminino(isabela).
feminino(yasmin).

genitor(jose, josiane).
genitor(jose, joene).
genitor(jose, josilaine).
genitor(maria, josiane).
genitor(maria, joene).
genitor(maria, josilaine).
genitor(josiane, isabela).
genitor(josiane, yasmin).
genitor(paulino, isabela).
genitor(paulino, yasmin).

idade(jose, 75).
idade(paulino, 52).
idade(isrrael, 59).
idade(josiane, 47).
idade(joene, 46).
idade(josilaine, 37).
idade(isabela, 17).
idade(yasmin, 12).

Atividades:
1. Quais são os homens na família que possuem filhos?
?- masculino(X), genitor(X, Y).
Resultado: X = paulino, Y = isabela ; X = paulino, Y = yasmin ; false.

2. Quem são as filhas da família?           
?- genitor(X, Y), feminino(Y).
Resultado: X = jose, Y = joene ; X = jose, Y = josilaine ; ...

3. Quais são as mulheres com mais de 30 anos?
?- feminino(X), idade(X, Y), Y > 30.
Resultado: X = joene, Y = 46 ; X = josilaine, Y = 37 ; false.

4. Quais são os netos?
?- genitor(X, Y), genitor(Y, Z).          
Resultado: X = jose, Y = josiane, Z = isabela ; ...

5. Quais são meus irmãos?
?- genitor(X, rebeca), genitor(X, Y).
Resultado: X = josiane, Y = isabela ; ...