1 665c255d 2023-08-04 jrmu (defun no-more? (coins)
 2 665c255d 2023-08-04 jrmu   (null coins))
 3 665c255d 2023-08-04 jrmu (defun except-first-denomination (coins)
 4 665c255d 2023-08-04 jrmu   (cdr coins))
 5 665c255d 2023-08-04 jrmu (defun first-denomination (oins)
 6 665c255d 2023-08-04 jrmu   (car coins))
 7 665c255d 2023-08-04 jrmu (defun cc (amount coin-values)
 8 665c255d 2023-08-04 jrmu   (cond ((= amount 0) 1)
 9 665c255d 2023-08-04 jrmu 	((or (< amount 0) (no-more? coin-values)) 0)
10 665c255d 2023-08-04 jrmu 	(t
11 665c255d 2023-08-04 jrmu 	 (+ (cc amount
12 665c255d 2023-08-04 jrmu 		(except-first-denomination coin-values))
13 665c255d 2023-08-04 jrmu 	    (cc (- amount
14 665c255d 2023-08-04 jrmu 		   (first-denomination coin-values))
15 665c255d 2023-08-04 jrmu 		coin-values)))))