プログラミング言語論・プリントの問の答（一部）

4章 p.27 sum

   (define (sum xs)
       (if (null? xs)
           0
           (+ (car xs) (sum (cdr xs)))))

4章 p.29 list-from

   (define (list-from n)
       (if (> n 0)
           (cons n (list-from (- n 1)))
           '()))

4章 p.29 nth

   (define (nth xs n)
      (if (= n 0)
          (car xs)
          (nth (cdr xs) (- n 1))))