リストをcdrダウンしてカウントする。直感的にわかりづらいが慣れるしかない。 (define (length items) (if (null? items) 0 (+ 1 (length (cdr items))) ) ) 実行例 > (define odds (list 1 3 5 7)) > (length odds) 4