Sistemas expertos

padre(jose,maria).
padre(jose,juan).
padre(jose,jaime).
padre(jose,julio).
padre(jaime,luis).
padre(julio,rosa).
hemano(X,Y):- padre (T,X),padre(T,Y),X\==Y,!. muestra el resultadohemano(X,Y):- padre (T,X),padre(T,Y),X\==Y. MUESTRA TODOS LOS HERMANOS
! corta el primer resultado de búsqueda encuentra uno y no vuelve a buscar

CON CORTElectores(lee(antonio,libro(quijote,cervantes,anaya))).
lectotes(lee(pepe,revista(orla,22))).
lectores(lee(juan,libro(delphi4,alvarez,anaya))).
lectores(lee(julio,libro(fisica,gonzalez,mcgil))).
libros:-lectores(lee(A,libro(Z,Y,X))),!,write(A,"lee libro--> ",Z,"autor --> ",Y,"editorial -->",X),nl,fail.

revista1:-lectores(lee(A,revista(Nombre,Num))),write(A,Nombre,Num).

lectores(lee(antonio,libro(quijote,cervantes,anaya))).lectotes(lee(pepe,revista(hola,22))).
lectores(lee(juan,libro(delphi4,alvarez,anaya))).
lectores(lee(julio,libro(fisica,gonzalez,mcgil))).
libros:-lectores(lee(A,libro(Z,Y,X))),write(A,"leelibro--> ",Z,"autor --> ",Y,"editorial -->",X),nl,fail.

revista1:-lectores(lee(A,revista(Nombre,Num))),write(A,Nombre,Num).

persona(lee(maria,registro(maria,"45",mujer,"23",ricaurte))).persona(lee(luis,registro(fabian,"85",hombre,"24",calle quinta y bolivar))).
persona(lee(maria,registro(gaby,"49",mujer,"25",misicata))).
persona(lee(anita,registro(karolina,"45",mujer,"21",orquidear))).persona(lee(maria,registro(anita,"50",mujer,"23",poliforo))).

registro:-persona(lee(A,registro(Nombre,Peso,Sexo,Edad,Direccion))),write(A,Nombre,Peso,Sexo,Edad,Direccion).Peso,Sexo,Edad,Direccion))),write(A,Nombre,Peso,Sexo,Edad,Direccion).

FUNCTOR?????’

Listas de cualquier tipo vacias, numéricas, de datos.
lista([].
lista([1,2,6,8,9]).
listanom([juan,maria,luis,lolita]).lista ([],[],[]).
listap([cuartob],[diego,olga,sandra,ana,liliana,roberto,bolivar,hermen]).
Ejecutar la lista //listap(A,B).

lista(cuartob,[maria,sandra,veronica,pedro,lolita,vicente])....