計算列表中的正數元素

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)應(> (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 2

這是你的問題：(> list 0)

你比較列表爲數字。嘗試(> (length list) 0)或(not (null? list))。或者任何關於「cond塊中的默認條件」的Scheme關鍵字是。

編輯：這是當你關注最重要的錯誤信息時得到的結果。當然，加雷思是對的。

Answer 3

你不能指望(> list 0)工作 - list是一個列表，但>期望其參數是數字。

您想查看列表中的第一個元素是否爲正數，因此應該是(> (car list) 0)。

但是：您的代碼存在更大的問題：如果第一個元素爲負數或零，會發生什麼情況？

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-extra換行符中使用相當快速的應用方法來實現可讀性。

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