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