FDP Ejercicio

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