list - LISP - 如何获得嵌套列表的平均长度？

Question

我有个问题。我需要从此列表中获取平均长度：(1 (2 3 4) 5 (6 7) 8 (9)). 应该是 2。我不知道从哪里开始......

我试图从中得到(1 2 3 4 5 6 7 8 9)，(1 (2 3 4) 5 (6 7) 8 (9))但我失败了，因为(reduce #'append list-name)没有工作。

我知道如何计算这个，但我需要在 (1 (2 3 4) 5 (6 7) 8 (9)) 中获取所有列表，如下所示：

list1 = (1 5 8)
list2 = (2 3 4)
list3 = (6 7)
list4 = (9)

但我不知道怎么做。

你能给我一些帮助吗？

Answer 1

(defun nested-lists-average-length (ls &aux (i 0) (n 0))
    (dolist (a ls (float (/ _______)))
      (if (_______ a) 
        (progn (_______ i) 
               (incf n (_______ a) )))))

填……填……空格。_ _ :)