拍功能，是錯還是我失去了somethng

Question

發現這個功能在球拍的書境界：

(define (my-filter pred lst) 
    (cond [(empty? lst) empty] 
     [(pred (first lst)) 
     (cons (first lst) (my-filter (rest lst)))] 
     [else (my-filter (rest lst))])) 

與調用它：

(my-filter (lambda (i) (> i 5)) `(1 2 3 4 5 6 7 8)) 

給出：

my-filter: arity mismatch; 
the expected number of arguments does not match the given number 
    expected: 2 
    given: 1 
    arguments...: 
    '(2 3 4 5 6 7 8) 

所以我把它改爲：

(define (my-filter pred lst) 
    (cond [(empty? lst) empty] 
     [(pred (first lst)) 
     (cons (first lst) (my-filter pred (rest lst)))] 
     [else (my-filter pred (rest lst))])) 

現在它工作正常。那麼，如果我在那裏錯過了任何東西，或者如果這本書錯了，我就會徘徊？

Answer 1

事實證明這本書是錯誤的。發現這在球拍home page的領域。我認爲這可能是我不明白的，因爲這是我第一次做球拍。

第114頁my過濾器函數的定義需要兩個參數 ，但只有一個參數在循環時提供。定義 應改爲：

(define (my-filter pred lst) 
    (cond [(empty? lst) empty] 
     [(pred (first lst)) 
     (cons (first lst) (my-filter pred (rest lst)))] 
     [else (my-filter pred (rest lst)))))