;;Autor: JJ
;;fecha 03/09/2018
;;contrato: opera3: numero, numero, numero, numero -> numero
;;proposito: Esta funcion recibe 4 numeros (a,b,c,d) y retorna (a*b)/(c+d)
;;ejemplos: (operacionX 4 3 2 1) -> 4, (operacionX 5 4 3 2) -> 4
(define (operacionX a b c d)
  ( / (* a b) (+ c d))
  )
;;pruebas
(check-expect (operacionX 4 3 2 1) 4)
(check-expect (operacionX 5 4 3 2) 4)