Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ;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))
- )]
- )
- )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement