Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;;Autor: Carlos A Delgado
- ;;Fecha: 18 de Enero de 2020
- ;;Contrato: chequear-diferencia: numero, numero -> simbolo
- ;;Propósito: Es indicar mediante un mensaje que tan cerca estamos de un número
- ;;Si son iguales retorna 'igual
- ;;Si la diferencia es mayor que 0 y menor o igual a 100 'pequeña
- ;;Si la diferencia es mayor que 100 y menor o igual a 1000 'mediana
- ;;Si la diferencia es mayor que 1000 'grande
- ;;Ejemplos
- ;;numA = 10 numB = 90 'pequeña
- ;;numA = 100 numB = 800 'mediana
- ;;numA = 15000 numB = 32000 'grande
- (define (chequear-diferencia numA numB)
- (cond
- [(= numA numB) 'igual]
- [(and (> (abs (- numA numB)) 0) (<= (abs (- numA numB)) 100)) 'pequeña]
- [(and (> (abs (- numA numB)) 100) (<= (abs (- numA numB)) 1000)) 'mediana]
- [else 'grande]
- ))
- (check-expect (chequear-diferencia 10 90) 'pequeña)
- (check-expect (chequear-diferencia 100 800) 'mediana)
- (check-expect (chequear-diferencia 15000 32000) 'grande)
- (guess-with-gui chequear-diferencia)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement