Рекурсия естественна, поскольку часто можно свести операции над деревьями к операциям над их ветвями, которые сами сводятся к операциям над ветвями ветвей, и так далее, пока мы не достигнем листьев. дерева.
(defun count-leaves (x)
(cond ((null x) 0)
((atom x) 1)
(t (+ (count-leaves (first x))
(count-leaves (rest x))))))