Juego RKT

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