- ;; mht created on Nov 8, 2011
-
-
;; sum-coins : number number number number -> number
-
;; to compute the value of a bag of coins
-
(define (sum-coins n-1 n-5 n-10 n-25)
-
(/
-
(+ (* 1 n-1) (* 5 n-5) (* 10 n-10) (* 25 n-25))
-
100))
-
- (sum-coins 100 20 10 4)