Código

Código sobre árbol de genetica
mail@pastecode.io avatar
unknown
prolog
a year ago
695 B
1
Indexable
Never
madre(josefina, mario).
madre(josefina, ligia).
madre(silvia, marina).
madre(silvia,jaime).
madre(silvia, carlos).
madre(ligia, regina).
madre(ligia, jacinta).

%padre:
padre(manuel, mario).
padre(manuel, ligia).
padre(mario , ligia).
padre(mario, jaime).
padre(mario, carlos).
padre(julio, regina).
padre(julio, jacinta).

% Abuelo:
abuelo(X, Y):-
    padre(X,W),
    padre(W,Y).

abuelo(X, Y):-
    padre(X,W),
    madre(W,Y).

abuela(X, Y):-
    madre(X,W),
    padre(W,Y).

abuela(X, Y):-
    madre(X,W),
    madre(W,Y).

%abuelos
abuelos(X, Y):-
    abuelo(X,Y).

abuelos(X, Y):-
    abuela(X,Y).

% abuelos(X, Y):-
    %abuelo(X, Y) ; abuela(X,Y).