scheme - 方案说明

Question

我正在阅读一本编程语言书，它要求我解释以下 Scheme 函数的作用（不确定，有人可以帮忙解释一下）：

(define (x lis)
  (cond ((null? lis) 0) 
        ((not (list? (car lis))) 
         (cond 
          ((eq? (car lis) #f) (x (cdr lis))) 
          (else (+ 1 (x (cdr lis)))))) 
        (else (+ (x (car lis)) (x (cdr lis))))))

Answer 1

它计算嵌套列表结构的叶节点数，忽略#f. 它使用递归过程：

• 如果输入是一个空列表，则这是返回 0 的基本情况。
• 如果输入是一对car不是列表的：
  • 如果car是#f，我们在 上递归cdr并返回它。
  • 否则，我们将car视为 1，并将其添加到递归的结果中cdr。
• 最后，我们对car和进行递归cdr，并将它们相加。