Advertisement
Daniel_Casallas

Untitled

Aug 17th, 2020
1,254
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Scheme 0.27 KB | None | 0 0
  1. (define (alquiler km)
  2.   (cond
  3.     [(<= km 100) (+ 100000 (* 100000 0.16))]
  4.     [(and (> km 100)(<= km 500)) (+ 100000 (* 0.16(+ 100000(* (- km 100) 3000))) (* (- km 100) 3000))]
  5.     [(> km 500) (+ (* (- km 500)1000) (* 0.16 (+ 100000(* (- km 100) 3000))) 100000)]
  6.     )
  7.   )
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement