Código
Código sobre árbol de geneticaunknown
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).