1 665c255d 2023-08-04 jrmu (define (count-leaves x)
2 665c255d 2023-08-04 jrmu   (cond ((null? x) 0)
3 665c255d 2023-08-04 jrmu 	((not (pair? x)) 1)
4 665c255d 2023-08-04 jrmu 	(else (+ (count-leaves (car x))
5 665c255d 2023-08-04 jrmu 		 (count-leaves (cdr x))))))
6 665c255d 2023-08-04 jrmu 
7 665c255d 2023-08-04 jrmu (list 1 (list 2 (list 3 4)))
8 665c255d 2023-08-04 jrmu '(1 (2 (3 4)))