看板Programming
标 题Re: [程式接龙] 找零钱 (Common Lisp)
发信站无名小站 (Tue Jun 27 16:36:38 2006)
转信站ptt!ctu-reader!ctu-gate!news.nctu!news.ntust!news.ntu!news.ee.ttu!news
※ 引述《[email protected] (CB)》之铭言：
> //License:GPL (为了游戏需要)
> //Version: 20060627 05:40 GMT+8
> //Author: costbook,
> //==================================================
(setq change '(100 1 1000 5 10 50))
(setq max (length change))
(setq change (sort change #'>))
(defun input-amount ()
(format t "请输入金额: (输入0结束)")
(read))
(do
((amount (input-amount)))
((equal amount 0))
(dolist (i change)
(if (>= amount i)
(progn
(format t "$~d=~t~d~%" i (floor amount i))
(decf amount (* i (floor amount i))))
(format t "$~d=~t0~%" i))))
--
夫兵者不祥之器物或恶之故有道者不处君子居则贵左用兵则贵右兵者不祥之器非君子
之器不得已而用之恬淡为上胜而不美而美之者是乐杀人夫乐杀人者则不可得志於天下
矣吉事尚左凶事尚右偏将军居左上将军居右言以丧礼处之杀人之众以哀悲泣之战胜以
丧礼处之道常无名朴虽小天下莫能臣侯王若能守之万物将自宾天地相合以降甘露民莫
之令而自均始制有名名亦既有夫亦将知止知 59-125-114-178.HINET-IP.hinet.net海
1F：推 nosrep:我以为是要把程式码写更多... 219.91.85.232 06/28 08:45