方案说明

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进行了递归，并将它们加在一起。