方案列表中有多少个元素

Question

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

例如

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

我怎样才能做到这一点？ 我不想要一个有效的代码，只是一个想法。 因此，也许您应该考虑删除工作代码。 ：） 谢谢

Answer 1

这个词很可能会被否决，但是，我不知道方案。 但是，我对函数式编程很熟悉。

如果没有内置选项，请首先以起始值“ 0”折叠列表，然后再每增加1折叠一次。

Answer 2

倍数答案将起作用。 但是，如果这是家庭作业，则您可能试图仅使用简单的内置函数来执行此操作。 有两个可能的答案。

这是幼稚的方式：

(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 ...)语法可以更简洁地编写此代码。我使用了这种样式，因为如果您只了解几个Scheme原语，就会更加清楚。）

Answer 3

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

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