JOI2008予選 問題1@Scheme

関数型にも興味があって、HaskellSchemeでどっち先にやろうか迷ってたんだけど、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))