Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;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))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement