;;; HSE-97: COLORES.CLP (C 181196) (UR 181196) ;;; Color de ojos, color de pelo. ;;;============================================================================ ;;;**************************************************************************** ;;; ENUNCIADO: * ;;;**************************************************************************** ;;; Dados hechos que describen el color de pelo y el color de ojos de una ;;; persona, utilizando la siguiente plantilla: ;;; ;;; (deftemplate persona ;;; (slot nombre ;;; (type SYMBOL)) ;;; (slot color-ojos ;;; (type SYMBOL)) ;;; (slot color-pelo ;;; (type SYMBOL))) ;;; ;;; y un hecho que describe un color de pelo y un color de ojos determinados, ;;; utilizando la siguiente plantilla: ;;; ;;; (deftemplate busqueda-de ;;; (slot color-ojos ;;; (type SYMBOL)) ;;; (slot color-pelo ;;; (type SYMBOL))) ;;; ;;; Escribir un o más reglas que: ;;; - Impriman en pantalla un mensaje indicando que una persona tiene el ;;; color de ojos buscado o el color de pelo buscado. ;;; - Impriman en pantalla un mensaje indicando que una persona tiene el ;;; color de ojos y el color de pelo buscado. ;;; ;;; Cargar el programa en CLIPS y ejecutarlo con el siguiente conjunto de ;;; hechos sobre personas: ;;; (persona (nombre Javier) (color-pelo negro) (color-ojos castanno)) ;;; (persona (nombre Manolo) (color-pelo negro) (color-ojos azul)) ;;; (persona (nombre Curro) (color-pelo castanno) (color-ojos castanno)) ;;; (persona (nombre Dario) (color-pelo rubio) (color-ojos verde)) ;;; (persona (nombre Jaime) (color-pelo castanno) (color-ojos verde)) ;;; (persona (nombre Felipe) (color-pelo rubio) (color-ojos azul)) ;;; y el siguiente hecho sobre el objeto de la busqueda. ;;; (busqueda-de (color-ojos verde) (color-pelo rubio))) ;;;-------------------+ ;;; Plantillas: | ;;;-------------------+ ;;; Incluimos las plantillas: (deftemplate persona (slot nombre (type SYMBOL)) (slot color-ojos (type SYMBOL)) (slot color-pelo (type SYMBOL))) (deftemplate busqueda-de (slot color-ojos (type SYMBOL)) (slot color-pelo (type SYMBOL))) ;;;-------------------+ ;;; Ejemplo: | ;;;-------------------+ (deffacts ojos-y-pelo (persona (nombre Javier) (color-pelo negro) (color-ojos castanno)) (persona (nombre Manolo) (color-pelo negro) (color-ojos azul)) (persona (nombre Curro) (color-pelo castanno) (color-ojos castanno)) (persona (nombre Dario) (color-pelo rubio) (color-ojos verde)) (persona (nombre Jaime) (color-pelo castanno) (color-ojos verde)) (persona (nombre Felipe) (color-pelo rubio) (color-ojos azul)) (busqueda-de (color-ojos verde) (color-pelo rubio)))