SICP EX1-9 change 问题

题目背景:给定一个数额,现有5种面额的硬币提供选择,编程计算共有多少种change方案

思路一:sicp中给定的递归思路(将该问题化为数额更小的子问题，以及硬币种类更少的子问题)

;;text1-9.scm

(define (change n)
	(define (cc amount kinds-of-coins)
		(cond ((= amount 0) 1)
				((or (< amount 0) (= kinds-of-coins 0)) 0)
		(else	(+ (cc (- amount (denomination kinds-of-coins)) kinds-of-coins) (cc amount (- kinds-of-coins 1)))))
	)
	(define (denomination kinds-of-coins )
		(cond  ((= kinds-of-coins 5) 50)
				((= kinds-of-coins 4) 25)
				((= kinds-of-coins 3) 10)
				((= kinds-of-coins 2) 5)
				((= kinds-of-coins 1) 1)
		)
	)
	(cc n 5)
)

思路二:(ex1-9)要求利用迭代的方式计算change方案，通过对上述递归过程进行分析,不难发现当(= e 0 )这种情况是求4种面额硬币的子问题 而当不满足此情况的时候就是对将问题转化为数额更小的子问题 通过类推我们得出了用迭代方式解决问题的方法 以下为代码示例

;;ex1-9.scm

(define (change n)
	(define (loop4 b c d e count)
		(if	(> (+ (* 5 b) (* 10 c) (* 25 d) (* 50 e) ) n)	(loop3 (+ c 1) d e count)
		(loop4 (+ b 1) c d e (+ count 1)))
	)
	(define (loop3 c d e count)
		(if (> (+ (* 10 c) (* 25 d) (* 50 e) ) n)	(loop2 (+ d 1) e count)
		(loop4 0 c d e count))
	)
	(define (loop2 d e count)
		(if (> (+ (* 25 d) (* 50 e) ) n) (loop1 (+ e 1) count)
		(loop3 0 d e count))
	)
	(define (loop1 e count)
		(if (> (* 50 e) n )	count
		(loop2 0 e count))
	)
	(loop1 0 0)
)

通过嵌套的4层循环成果解决问题

第一次写博客,请多多指教