计算列表中正元素的数量

Question

我正在尝试计算列表中积极元素的数量。这是我到目前为止所得到的：

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

它一直给我一个错误，“需要输入实数”，你将如何解决这个问题？

哦，我这样称呼它：

(howMany '(6 7 8))

Answer 1

您不能指望 (> list 0) 起作用 — list 是一个列表，但 > 期望其参数为数字。

您想要查看列表的第一个元素是否为正，因此应该为 (> (car list) 0)。

但是：您的代码存在一个更大的问题：如果第一个元素为负数或零，会发生什么？

Answer 2

您的代码中有几个错误。

(> list 0) 应为 (> (car list) 0) 因为您要检查列表的第一个元素大于 0。您也不能将 > 的默认实现应用于列表。

(+ 1 (howMany (cdr list))) 也会失败，因为 howMany 并不总是计算为数字。您必须通过将计数器作为参数传递给递归调用的过程来维护计数器。一种方法是：

(define (howmany lst)
  (let loop ((n 0) (lst lst))
    (if (null? lst) n
      (loop (if (> (car lst) 0) (add1 n) n) (cdr lst)))))

测试：

> (howmany '(1 2 3 4 5))
5
> (howmany '(1 2 3 -4 5))
4
> (howmany '(1 -2 3 -4 5))
3
> (howmany '(-1 -2 3 -4 5))
2

Answer 3

这是您的问题：(> list 0)

您正在将列表与数字进行比较。尝试 (> (length list) 0) 或 (not (null? list))。或者无论“cond 块中的默认条件”的Scheme 关键字是什么。

编辑：这就是当您首先关注错误消息时您会得到的结果。加雷斯当然是对的。

Answer 4

positiveCounter(seq)
  if typeof(first(seq)) == num
      if first(seq) > 0
          return positiveCounter(rest(seq) + 1
      else
          return positiveCounter(rest(seq)
  else
      #Handle Errors Somehow. 

我将使用的递归算法的伪代码。

我不知道Scheme 或Clojure （你的方括号让我想起了）。

或者你可以用 Common Lisp 编写一个相当时髦的应用方法——额外的换行符以提高可读性。

(defun positiveCounter (seq)
  (reduce #'+
          (mapcar
           #'(lambda (x)
               (if (atom x)
                   (if (> x 0) 1 0)
                   0))
           seq)))