如何在LISP中找到列表的子列表（来自每个级别）的数量？

Question

EG。列表（A 1（B 2）（1 C 4）（D 1（6 F））（（G 4）6））=＆gt; 6

Answer 1

快速回答是：

(defun count-sublists (list)
  (if (listp list)
      (1+ (loop for el in list
             sum (count-sublists el)))
      0))

只需遍历元素并递归计算所有列表。