SICP-换零钱方式的统计问题

引入

在《计算机程序的构造和解释》（第2版）P26页，作者用递归的方式为我们提供了一种解决思路：

将总数为a的现金换成n种硬币的不同方式的数目等于

• 将现金数a换成除第一种硬币之外的所有其他硬币的不同方式数目，加上
• 将现金数a-d换成所有种类的硬币的不同方式数目，其中的d是第一种硬币的币值

下面是我将书中Scheme的方言换成Common Lisp实现的代码：

(defun 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)))
(defun cc (amount kinds-of-coins)
	(cond ((= amount 0) 1)
		  ((or (< amount 0) (= kinds-of-coins 0)) 0)
		  (t (+
		  	  (cc amount (- kinds-of-coins