Ejercicio Reto

;; Autor: Juan Felipe Jaramillo
;; Fecha de creación: 8 de julio de 2020
;; Contrato: calcularPiezasRealizadas número, número -> número
;; Descripción: Esta función calcula la cantidad de piezas que se realizan en una compañía de acuerdo al horario que se provea.
;; Ejemplos:(calcularPiezasRealizadas 5 17), retorna 303
;; Definición:
(define (calcularPiezasRealizadas x y) (cond
                                         [(<= x 10) (cond
                                                      [(and (<= y 10) (> y x) ) (produccion_0-10 (- y x) ) ]
                                                      [(and (<= y 10) (< y x) ) (+(produccion_0-10 (- 10 x) ) (produccion_10-16 6) (produccion_16-24 8) (produccion_0-10 y ) ) ]
                                                      [(and (>= y 10) (<= y 16) ) (+ (produccion_0-10 (- 10 x) ) (produccion_10-16 (- y 10) ) ) ]
                                                      [else (+ (produccion_0-10 (- 10 x)) (produccion_10-16 6) (produccion_16-24 (- y 16 ) ) ) ]
                                                      )]
                                         [(and (<= x 16) (> x 10) ) (cond
                                                                      [ (and (<= y 16) (> y x)) (produccion_10-16 (- y x) ) ]
                                                                      [ (and (<= y 24) (>= y x) (> y 16) ) (+ (produccion_10-16 (- 16 x) ) (produccion_16-24 (- y 16) ) ) ]
                                                                      [ (and (<= y 24) (>= y x) (< y 16) )  (produccion_10-16 (- y x) ) ]
                                                                      [ (and (<= y 16) (< y x)) (+ (produccion_10-16 (- 16 x) ) (produccion_16-24 8 ) (produccion_0-10 y) ) ]
                                                                      )]
                                         [else (cond
                                                 [ (and (> y x) (<= y 24) ) (produccion_16-24 (- y x) ) ]
                                                 [ (and (< y x) (<= y 24) ) (+ (produccion_16-24 (- 24 x) ) (produccion_0-10 10) (produccion_10-16 6) (produccion_16-24 (- y 16) ) ) ]
                                                 [ (and (< y 10) (>= y 0) ) (+ (produccion_16-24 (- 24 x) ) (produccion_0-10 y) ) ]
                                                 [ (and(< y 16) (>= y 10) ) (+ (produccion_16-24 (- 24 x) ) (produccion_0-10 10) (produccion_10-16 (- y 10) ) ) ]
                                                 ) ]
                                         ) )
;; Autor: Juan Felipe Jaramillo
;; Fecha de creación: 8 de julio de 2020
;; Contrato: calcularPiezasRealizadas número -> número
;; Definición:
(define (produccion_0-10 x) (* x 25) )

;; Autor: Juan Felipe Jaramillo
;; Fecha de creación: 8 de julio de 2020
;; Contrato: calcularPiezasRealizadas número -> número
;; Definición:
(define (produccion_10-16 x) (* x 28) )

;; Autor: Juan Felipe Jaramillo
;; Fecha de creación: 8 de julio de 2020
;; Contrato: calcularPiezasRealizadas número -> número
;; Definición:
(define (produccion_16-24 x) (* x 10) )


;;Pruebas:
(check-expect (calcularPiezasRealizadas 5 17) 303 )