Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;Autor: Carlos A Delgado
- ;Fecha: 25 de Julio de 2020
- ;Contrato: chequear-diferencia: numero,numero -> simbolo
- ;Descripción, si la diferencia entre los números es 0, 'iguales
- ;Si la diferencia entre los numeros es menor que 500, 'menor-que-500
- ;Si la diferencia entre los números es mayor o igual que 500, 'mayor-o-igual-500
- ;Ejemplos
- ;(chequear-diferencia 400 400) 'iguales
- ;(chequear-diferencia 200 300) 'menor-que-500
- ;(chequear-diferencia 300 200) 'menor-que-500
- ;(chequear-diferencia 100 600) 'mayor-o-igual-500
- (define (chequear-diferencia x y)
- (cond
- [(= x y) 'iguales]
- [(< (abs (- x y)) 500) 'menor-que-500]
- [else 'mayor-o-igual-500]
- ))
- (check-expect (chequear-diferencia 400 400) 'iguales)
- (check-expect (chequear-diferencia 200 300) 'menor-que-500)
- (check-expect (chequear-diferencia 300 200) 'menor-que-500)
- (check-expect (chequear-diferencia 100 600) 'mayor-o-igual-500)
- (guess-with-gui chequear-diferencia)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement