Racket/Scheme无结构节点下编写树递归depth函数求解树最大层级

• 边界条件：输入为空列表'()时直接返回0，匹配基础用例要求
• 元素递归处理：遍历列表的每个元素，如果是子列表就递归计算它的深度，非列表的原子元素深度贡献为0
• 层级计算：当前列表的深度等于1（当前层本身占1层）加上所有子元素的深度最大值

(define (depth tree)
  (if (null? tree)
      0
      (+ 1
         (apply max
                (map (lambda (node)
                       (if (list? node)
                           (depth node)
                           0))
                     tree)))))

给出的四个测试用例运行结果完全匹配预期：

• (depth '()) => 0
• (depth '(1 2 3)) => 1
• (depth '(a (b (c (d))))) => 4
• (depth '((((((0))))))) => 6

内容的提问来源于stack exchange，提问作者Ptechnic