View difference between Paste ID: dL6mc7an and YEZxpdsU

 ;;Estructuras
 
 (define-struct fruta (nombre pesoG valorG))
 (define-struct carne (nombre tipo pesoG))
 
 (define-struct carne-cerdo (parte precioG))
 (define-struct carne-pollo (parte tipo precioG))
 (define-struct carne-res (parte proceso precioG))
 (define-struct carne-pescado (tipo origen precioG))
 
 (define-struct electrodomestico (nombre marca precioU))
 (define-struct higiene (nombre marca precioD))
 (define-struct bebidas (nombre marca precioU))
 
 (define-struct venta (producto unidades))
 (define-struct detallado (subtotal IVA bolsas total))
 
 ;;;Solución
 
 ;;Autor: Carlos A Delgado
 ;;Fecha 22 de Agosto de 2020
 ;;Contrato: calcular-venta: lista de venta, numero -> detallado
 ;;Propósito: Calcular el total detallado de una venta que de realiza en un supermercado
 ;;Ejemplo
 ; Voy a comprar 150 manzanas gramo cuesta 8, tres mil gramos
 ; de lomo de cerdo 15 el gramo y una lavadora 200000. 3 bolsas
 ; Detallado: Subtotal:  150*8 + 15*3000 + 200000 = 246200
 ; IVA: 0.05(150*8 + 15*3000 ) + 0.19*200000 = 40310
 ; Bolsas= 3*40 = 120
 ; Total: 286630
 
 (define (calcular-venta lventa num_bolsas)
   (make-detallado
    (calcular-subtotal lventa)
    (calcular-iva lventa)
    (* 40 num_bolsas)
    (+ (calcular-subtotal lventa)
       (calcular-iva lventa)
       (* 40 num_bolsas)
       )))
 
 ;;Contrato: calcular-subtotal: lista de venta -> numero
 (define (calcular-subtotal lventa)
   (cond
     [(null? lventa) 0]
     [(fruta? (venta-producto (first lventa)))
      (+
       (*
       ;;Número de gramos que voy a comprar
       (venta-unidades (first lventa))
       ;;Valor por gramo
       (fruta-valorG (venta-producto (first lventa)))
       )
       ;;Resto
       (calcular-subtotal (rest lventa))
       )
      ]
     [(carne? (venta-producto (first lventa)))
      (+
       ;;Primero
       (*
        ;;Número de gramos que voy a comprar
        (venta-unidades (first lventa))
        ;;Precio por gramo
        (cond
          [(carne-cerdo? (carne-tipo (venta-producto (first lventa))))
           (carne-cerdo-precioG (carne-tipo (venta-producto (first lventa))))
           ]
          [(carne-pollo? (carne-tipo (venta-producto (first lventa))))
           (carne-pollo-precioG (carne-tipo (venta-producto (first lventa))))
           ]
          [(carne-res? (carne-tipo (venta-producto (first lventa))))
           (carne-res-precioG (carne-tipo (venta-producto (first lventa))))
           ]
          [(carne-pescado? (carne-tipo (venta-producto (first lventa))))
           (carne-pescado-precioG (carne-tipo (venta-producto (first lventa))))
           ]
          [else (error "Tipo de carne no válido")]
          )
       )
       ;;Resto
       (calcular-subtotal (rest lventa))
       )
      ]
     [(higiene? (venta-producto (first lventa)))
      (+
       ;;Primero
       (*
        ;;Número de docenas que voy a comprar
        (venta-unidades (first lventa))
        ;;Valor por docena
        (higiene-precioD (venta-producto (first lventa)))
        )
       ;;Resto
       (calcular-subtotal (rest lventa))
       )
      ]
     [(electrodomestico? (venta-producto (first lventa)))
      (+
       ;;Primero
       (*
        ;;Número de unidades que voy a comprar
        (venta-unidades (first lventa))
        ;;Valor por unidad
        (electrodomestico-precioU (venta-producto (first lventa)))
        )
       ;;Resto
       (calcular-subtotal (rest lventa))
       )]
     [(bebidas? (venta-producto (first lventa)))
      (+
       ;;Primero
       (*
        ;;Número de unidades que voy a comprar
        (venta-unidades (first lventa))
        ;;Valor por unidad
        (bebidas-precioU (venta-unidades (first lventa)))
        )
       ;;Resto
       (calcular-subtotal (rest lventa))
       )]
     [else (error "La lista contiene un producto no válido")]
     ))
 
 ;;calcular-iva: lista de venta -> numero
 (define (calcular-iva listaV)
   (cond
     [(empty? listaV) 0]
     [else
      (+
       (cond
         [(or (fruta? (venta-producto (first listaV)))
              (carne? (venta-producto (first listaV))))
          (* 0.05 (calcular-subtotal (cons (first listaV) empty)))]
         [else (* 0.19 (calcular-subtotal (cons (first listaV) empty)))]
         )
       (calcular-iva (rest listaV))
       )]))
 
 ;;Pruebas
 ; Voy a comprar 150 manzanas gramo cuesta 8, tres mil gramos
 ; de lomo de cerdo 15 el gramo y una lavadora 200000. 3 bolsas
 ; Detallado: Subtotal:  150*8 + 15*3000 + 200000 = 246200
 ; IVA: 0.05(150*8 + 15*3000 ) + 0.19*200000 = 40310
 ; Bolsas= 3*40 = 120
 ; Total: 286630
 
 
 (check-expect (calcular-venta (cons (make-venta (make-fruta "manzana" 150 8) 150)
                                     (cons (make-venta (make-carne "Cerdo" (make-carne-cerdo "lomo" 15) 200) 3000)
                                           (cons (make-venta (make-electrodomestico "Lavadora" "LG" 200000) 1)
                                                 empty))) 3)
               (make-detallado
                246200
                40310
                120
                286630)
               )