;Autor: Juan Felipe Arango Guzman
;Fecha: 03-09-2020
;Contrato: retorno-credito: numero -> numero
;Proposito: Calcular el recargo que se cobrara a una persona por el uso de la tarjeta univalle-melo
;Ejemplos:
;Definiciones:

(define (retorno-credito gastostotal)
  (cond
    [(not (number? gastostotal))
     (error "La entrada debe ser un numero")]
    [(< gastostotal 0)
     (error "La entrada no puede ser menor que cero")]
    [(and (>= gastostotal 0) (<= gastostotal 1000))
     (* 0.025 gastostotal)]
    [(and (> gastostotal 1000) (<= gastostotal 3000))
     (+ (* 0.025 1000)
        (* 0.05 (- gastostotal 1000)))]
    [(and (> gastostotal 3000) (<= gastostotal 10000))
     (+ (* 0.025 1000)
        (* 0.05 2000)
        (* 0.075 (- gastostotal 3000)))]
    [(and (> gastostotal 10000) (<= gastostotal 20000))
     (+ (* 0.025 1000)
        (* 0.05 2000)
        (* 0.075 10000)
        (* 0.085 (- gastostotal 10000)))]
    [(> gastostotal 20000)
     (+ (* 0.025 1000)
        (* 0.05 2000)
        (* 0.075 10000)
        (* 0.085 20000)
        (* 0.1 (- gastostotal 20000))
        )]
    )
  )