Advertisement
cardel

FDP Ejercicio

Jul 25th, 2020
1,659
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.94 KB | None | 0 0
  1.  
  2. ;Autor: Carlos A Delgado
  3. ;Fecha: 25 de Julio de 2020
  4. ;Contrato: chequear-diferencia: numero,numero -> simbolo
  5. ;Descripción, si la diferencia entre los números es 0, 'iguales
  6. ;Si la diferencia entre los numeros es menor que 500, 'menor-que-500
  7. ;Si la diferencia entre los números es mayor o igual que 500, 'mayor-o-igual-500
  8. ;Ejemplos
  9. ;(chequear-diferencia 400 400) 'iguales
  10. ;(chequear-diferencia 200 300) 'menor-que-500
  11. ;(chequear-diferencia 300 200) 'menor-que-500
  12. ;(chequear-diferencia 100 600) 'mayor-o-igual-500
  13. (define (chequear-diferencia x y)
  14.   (cond
  15.     [(= x y) 'iguales]
  16.     [(< (abs (- x y)) 500) 'menor-que-500]
  17.     [else 'mayor-o-igual-500]
  18.     ))
  19.  
  20. (check-expect (chequear-diferencia 400 400) 'iguales)
  21. (check-expect (chequear-diferencia 200 300) 'menor-que-500)
  22. (check-expect (chequear-diferencia 300 200) 'menor-que-500)
  23. (check-expect (chequear-diferencia 100 600) 'mayor-o-igual-500)
  24.  
  25. (guess-with-gui chequear-diferencia)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement