list - Lisp - 在嵌套列表的列表中查找最大深度

Question

所以我正在用 Lisp 编写一个语法，想找到该语法树的最大深度。

例如，

(SENTENCE (NOUN-PHRASE (DETERMINER THE) (NOUNPLURAL MEN))
 (VERB-PHRASE-PAST 
  ((VERBPAST SAW) (NOUN-PHRASE (DETERMINER THE) (NOUNPLURAL DOGS)))))

最大深度应为 4(句子 -> 动词短语过去 -> 名词短语 -> 限定词 -> the)。
然而，列表长度为 3，并且在扩展内部列表时总是不正确的。

如何编写一个函数来返回这个最大深度(不使用任何外部库)？

Answer 1

(defun max-depth (tree)
  (if (atom tree)
      0
      (1+ (reduce #'max (mapcar #'max-depth tree)))))

您可能需要更改 0 值以满足您的规范。

注意:编辑为使用 REDUCE 而不是 APPLY。 REDUCE 没有任何列表长度限制。