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