最初のページ 戻る 次へ 最後のページ

復習

(define (length x)

 (cond ((null? x)0)

  (else (+ 1 (length (cdr x)))) ))

 

引数xの第一要素を除いた部分を新しいxにする

(cdr x)

自分自身を適用する

(再帰関数)

(length x)

(length x)

0 [xが空リストのとき]

1 + (length(cdr x) [それ以外のとき]

=