带有方案的列表中有多少个元素

Question

我需要编写一个函数，用方案语言计算列表中有多少元素。

例如

(howMany 'a) 返回 0
(howMany '(ab)) 返回 1
(howMany '(a (bc))) 返回 2

我该怎么做？我不需要一个工作代码，只是一个想法。所以也许你应该考虑删除工作代码。 ：） 谢谢

Answer 1

折叠答案会起作用。但是，如果这是家庭作业，您可能会尝试仅使用简单的内置函数来完成此操作。有两个可能的答案。

这是简单的方法：（

(define (howMany list)
  (if (null? list)
      0
      (+ 1 (howMany (cdr list)))
  )
)

您的Scheme 实现可能有一个函数empty? 而不是null?。）

但是，该算法将占用与列表中的元素数量，因为在执行任何添加之前，它将存储列表中每个元素的 (+ 1 ...) 。直觉上，你不应该需要这个。这里有一个更好的算法可以避免这个问题：（

(define (howMany list)
   (define (iter numSoFar restOfList)
      (if (null? restOfList)  
          numSoFar
          (iter (+ numSoFar 1) (cdr restOfList))
      )
   )
   (iter 0 list)
)

加分：使用Scheme的(let iter ...)语法来更简洁地编写这个。我使用这种风格是因为如果你只知道一些，它会更清晰方案原语。）

Answer 2

这句话很可能会被否决，但是，我不知道方案。然而，我熟悉函数式编程。

如果没有内置功能，请先“折叠”起始值为 0 的列表，然后在每次折叠时添加 1。

Answer 3

它只是计算列表中元素的数量。

(define howMany
   (lambda (list)
      (cond
         [(not (list? list)) 0]
         [(null? list) 0]
         [else (+ 1 (howMany (cdr list)))])))