;;Autor: Paola Andrea Domínguez Vélez
;;Fecha: 3/09/2020
;;Contrato: número -> número
;;Proposito calcular los cargos que retorna la tarjeta de crédito univalle-melo ofrecida por la Universidad.

;;Definición:
(define (retorna-credito total_gastos)
  (cond
    [(and (> total_gastos 0) (<= total_gastos 1000))
     (* 0.025 total_gastos)
     ]
    [(and (> total_gastos 1000) (<= total_gastos 3000))
     (+ (* 0.05 (- total_gastos 1000)) (* 0.025 1000))
     ]
    [(and (> total_gastos 3000) (<= total_gastos 10000))
     (+ (* 0.075 (- total_gastos 3000)) (* 0.05 2000) (* 0.025 1000))
     ]
    [(and (> total_gastos 10000) (<= total_gastos 20000))
     (+ (* 0.085 (- total_gastos 10000)) (* 0.075 7000) (* 0.05 2000) (* 0.025 1000))
     ]
    [(> total_gastos 20000)
     (+ (* 0.1 (- total_gastos 20000))(* 0.085 10000) (* 0.075 7000) (* 0.05 2000) (* 0.025 1000))
     ]
    [else "Error"]
    ))


(retorna-credito 11500)