(define (length x)
(cond ((null? x)0)
(else (+ 1 (length (cdr x)))) ))
引数xの第一要素を除いた部分を新しいxにする
(cdr x)
自分自身を適用する
(再帰関数)
(length x)
0 [xが空リストのとき]
1 + (length(cdr x) [それ以外のとき]
=