输入钱的总数cents，列表lst可以用的面额，如果省略输入就是(25 10 5 1) 。
程序输出为最少金币数。用动态规划做，代码如下：
(defun make-best-change(cents &optional (lst'(25 10 5 1)))
(if(< cents (car(last lst)))
0
(let((minw most-positive-fixnum))
(do((i lst(rest i)))
((null i)minw)
(unless(>(car i)cents)
(setf minw(min minw (1+ (make-best-change(- cents (car i))lst)))))))))
当cents值比较小是可以顺利找对，但是当cents大一点，比如67，程序就直接卡死了，
怀疑是递归效率太低的问题。
各位吧友有啥好建议？

其实换一个算法比较好
                             ————酷容,你怎么看


程序要求处理各种况，如果找不出来一个组合可以满足题目，那么就用最接近的
程序更正如下：
(defun make-best-change(cents &optional(lst'(25 10 5 1)))
(cond((null (cdr lst))(floor cents (car lst)))
((< cents (car(last lst)))0)
((< cents (car lst))(make-best-change cents (cdr lst)))
(t (let ((x (floor cents (car lst))))
(do((i x (1- i))
(minw most-positive-fixnum
(min minw (+ i (make-best-change(- cents (* i (car lst)))(cdr lst))))))
((< i 0)minw))))))
但是有一种情况还是不对，当恰好可以找开的时候，程序返回了一个找不开的最小组合。比如(MAKE-BEST-CHANGE 32 '(11 7)) 答案应该是 4 但是显示 3。
真心无力了，求教


再写一个,这次应该没问题了
       ————Mozilla/5.0 (X11; Ubuntu; Linux i686; rv:16.0) Gecko/20100101 Firefox/16.0

改成这样的版本可以正确计算出金币数了，但是我不会用列表输出各个金币各用了多少啊。
(defun make-best-change(cents &optional (lst '(25 10 5 1)))
(do((j cents (1- j))(k most-positive-fixnum (m2 j lst)))
((< k most-positive-fixnum)k)))
(defun m2(cents lst)
(if(null(cdr lst))
(multiple-value-bind(coins rest)(floor cents(car lst))
(if(zerop rest)coins
most-positive-fixnum))
(loop for i from 0 to(floor cents(car lst))minimize
(+ i(m2(- cents(* i (car lst)))(cdr lst))))))

有点忙,所以有点晚,不过已弄完