Blame

Date:
Message:
Import sources
Actions:
History | Blob | Raw File
1 665c255d 2023-08-04 jrmu (defun count-leaves (tree)

2 665c255d 2023-08-04 jrmu   (accumulate

3 665c255d 2023-08-04 jrmu    (lambda (x y)

4 665c255d 2023-08-04 jrmu      (+ y

5 665c255d 2023-08-04 jrmu 	(if (consp x)

6 665c255d 2023-08-04 jrmu 	    (count-leaves x)

7 665c255d 2023-08-04 jrmu 	    1)))

8 665c255d 2023-08-04 jrmu    0

9 665c255d 2023-08-04 jrmu    tree))