riverphoenix

导航

 
(define (count-change amount) (cc amount 5) ) (define (cc amount kinds-of-coins) (cond((= amount 0) 1) ((or (< amount 0) (= kinds-of-coins 0)) 0) (else (+ (cc amount (- kinds-of-coins 1)) (cc (- amount (first-denomitation kinds-of-coins)) kinds-of-coins))) )) (define (first-denomitation kinds-of-coins) (cond((= kinds-of-coins 1) 1) ((= kinds-of-coins 2) 5) ((= kinds-of-coins 3) 10) ((= kinds-of-coins 4) 25) ((= kinds-of-coins 5) 50) )) (count-change 100)
posted on 2012-01-30 22:49  riverphoenix  阅读(307)  评论(0编辑  收藏  举报