Ejemplo Clase 14 Dic FDP

;;Autor: Carlos A Delgado
;;Fecha 14 de Diciembre de 2020
;;Contrato: verificar-edad: numero->texto
;;Propósito: Esta función recibe un número que indica la edad de una persona y de acuerdo a la edad emite un mensaje
;;Ejemplo
;;(verificar-edad 1) "Eres un niño"
;;(verificar-edad 5) "Eres un niño grande"
;;(verificar-edad 10) "Eres un adolescente"
;;(verificar-edad 20) "Eres un adulto"
;;(verificar-edad -10) Debe emitir un error
(define (verificar-edad edad)
  (cond
    [(and (>= edad 0) (< edad 5)) "Eres un niño"]
    [(and (>= edad 5) (< edad 10)) "Eres un niño grande"]
    [(and (>= edad 10) (< edad 20)) "Eres un adolescente"]
    [(>= edad 20) "Eres un adulto"]
    [else (error "Debes ingresar una edad mayor o igual a 0")]
    ))

(check-expect (verificar-edad 1) "Eres un niño")
(check-expect (verificar-edad 5) "Eres un niño grande")
(check-expect (verificar-edad 10) "Eres un adolescente")
(check-expect (verificar-edad 20) "Eres un adulto")
(check-error (verificar-edad -10))