换零钱方式的统计

question：给了半美元,四分之一美元,10每分,5美分和1美分的硬币,将一美元换成零钱,一共有多少种不同方式？
更一般的问题是,给定了任意数量的现金,我们能写出一个程序,计算出所有换零钱的种数吗?
answer：
采用递归程序,这一问题有一种很简单的解法.假定我们所考虑的可用硬币类型种类排了某种顺序,于是就有下面的关系:
将总数为a的现金换成n中硬币的不同方式的数目等于：
将现金数a换成除第一种硬币之外的所有其他硬币的不同方式数目,加上
将现金数a-d换成所有种类的硬币的不同方式数目,其中d是第一种硬币的币值.

(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-denomination kinds-of-coins)) kinds-of-coins)))))
(define (first-denomination 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)