関数型にも興味があって、HaskellとSchemeでどっち先にやろうか迷ってたんだけど、Schemeを先にやることにした。
(define (solve price clist count)
(if (null? clist)
count
(if (>= price (car clist))
(solve (- price (car clist)) clist (+ count 1))
(solve price (cdr clist) count))))
(print (solve (- 1000 (read)) '(500 100 50 10 5 1) 0))