scheme - 如何计算布尔列表中真实元素的数量？

Question

我可以写一个这样的函数

(define (bool-num x) (if x 1 0))
(define (cnt-true lst)
  (foldl + 0 (map bool-num lst)))

但我发现并不优雅，因为球拍有一个count功能 and false?，但没有true?

所以我可以计算错误元素的数量：

(count false? lst)

有什么我想念的吗？

Answer 1

您正在寻找程序identity：

(count identity '(#t #f #t #t #f))
=> 3

(count identity '(1 2 #t #f #f 9))
=> 4