Enunciado: programa que le ingrese dos novias y defina con cual de ellas se casa partiendo de las siguientes condiciones debe tener ojos azules y cabello castaño debe ser menor de 35 y mayor de 25 años sin ninguna cumple los requisitos debe mostrar el mensaje "busco otra".
; ==========================================================
(define-struct novia (nombre cabello ojos edad ))
(define-struct salida(mensaje nombre ))
(define novia1 (make-novia 'camila 'negro 'negros 17))
(define novia2 (make-novia 'mariana 'castaño 'azules 26))
(define (boda n1 n2)
(cond
[(not (and (novia? n1) (novia? n2))) "dato invalido"]
[(and (symbol=? (novia-cabello n1) 'castaño) (symbol=? (novia-ojos n1) 'azules)
(or (>= (novia-edad n1) 25) (<= (novia-edad n1) 35)))
(make-salida "casate conmigo" (novia-nombre n1) ) ]
[(and (symbol=? (novia-cabello n2) 'castaño) (symbol=? (novia-ojos n2) 'azules)
(or (>= (novia-edad n2) 25) (<= (novia-edad n2) 35)))
(make-salida "casate conmigo" (novia-nombre n2))]
[else "me busco otro"]))
;prueba
(boda novia1 novia2)
; ==========================================================
