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

Question

因此，我正在为Lisp编写一个语法，并且希望找到语法树的最大深度。

例如，

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

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

如何编写一个函数来返回此最大深度（不使用任何外部库）？

Answer 1

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

您可能需要更改0值以符合您的规格。

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