familia.pl

%% RELACIONES FAMILIARES
%%==============================
padre(samuel, vero).
padre(samuel, paco).
padre(samuel, raul).
padre(vero, victor).
padre(paco, awi).

hombre(paco).
hombre(vic).
hombre(raul).

mujer(mercedes).
mujer(vero).
mujer(awi).


%% MUESTRA LOS HIJOS DE "X"
hijo(X):-
	padre(X, Y),
	writeln(Y), fail.
hijo(_):- !.

%% MUESTRA LOS NIETOS DE "X"
nieto(X):-
	padre(X, Y),
	padre(Y,Z),
	writeln(Z), fail.
nieto(_):-!.

nieto1(X, Y):-
	padre(X, Y).
nieto1(X, Y):- nieto1(X, Y).

TAREA ERROR AL FALLAR NIETO1 SIEMPRE MUESTRA A VERO

%% MUESTRA LOS NIETOS MUJERES DE "X"
nietas(X):-
	nieto1(X,Y),
	mujer(Y),
	writeln(Y), fail.
nietas(_).



%% [ 1 ]		CREAR UNA BASE DE DATOS DINAMICA DE ANIMALES
%% [ 2 ]		QUE PERMITA LA INSERCION Y EL BORRADO DE ANIMALES
%% [ 3 ]		QUE NO PERMITA DUPLICADOS
%% [ 4 ]		QUE SOPORTE LAS SIGUIENTES PREGUNTAS
%%				a)	MOSTRAR ANIMALES CARNIVOROS
%%				b)	PREGUNTAR SI UN ANIMAL PUEDE SER COMIDO POR OTRO