University of Washington • CSE583 • D. Notkin © 2000
29
Recursive examples
l(define (length x)
l  (if (null? x) 0
l      (+ 1 (length (cdr x)))))
l
l(define (sum x)
l  (if (null? x) 0
l      (+ (car x) (sum (cdr x)))))
l
l