看板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