(define-struct celular (marca memoria espacio  gama-alta? costo))
(define-struct computador (marca procesador gama-alta? costo))
(define-struct accesorio (nombre costo))
(define-struct venta (producto  cantidad))
(define-struct costo-discriminado (subtotal iva icl total))

(define celular1 (make-celular 'xiaomi 4 64 false 600000))
(define computador1 (make-computador 'acer 'ryzen5 true 2500000))
(define accesorio1 (make-accesorio 'raton 90000))
(define venta1 (make-venta computador1 2))


;Autor: Juan Felipe Arango
;Fecha: 08/08/2020
;Contrato:  venta-discriminada: venta -> costo-discriminado
;Proposito: Hallar el costo de un producto dependiendo de los impuestos que le apliquen
;Ejemplos:
;(venta-discriminada (make-venta (celular1 8)) (costo-discriminado (2500000 475000 250000 3225000))
;definiciones:
(define (venta-discriminada venta)
  (cond
    [(not (venta? venta)) (error "La entrada debe ser una estructura tipo venta")]
    [(celular? (venta-producto venta)) (make-costo-discriminado
                                           (* (venta-cantidad venta)
                                              (celular-costo (venta-producto venta)))