FDP Ejercicio

;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)