練習問題 P.56 length
(define (length lis) (if (pair? lis) (+ 1 (length (cdr lis))) 0))
ついでにネストされている要素の数も
(define (deep-length lis) (cond ((null? lis) 0) ((pair? lis) (+ (deep-length (car lis)) (deep-length (cdr lis)))) (else 1)))
(define (length lis) (if (pair? lis) (+ 1 (length (cdr lis))) 0))
ついでにネストされている要素の数も
(define (deep-length lis) (cond ((null? lis) 0) ((pair? lis) (+ (deep-length (car lis)) (deep-length (cdr lis)))) (else 1)))