リストを操作する関数: list-ref
> (define (list-ref lst n)
    (cond ((null? lst) "Out of range")
          ((= 0 n)     (car lst))
          (else        (list-ref (cdr lst) (- n 1)))))
> (list-ref (list 1 3 5 7) 3)
7

一覧 前へ 次へ