我可以写一个这样的函数
(define (bool-num x) (if x 1 0))
(define (cnt-true lst)
(foldl + 0 (map bool-num lst)))
但是我发现不太优雅，因为racket有count函数和false?，但是没有true?
这样我就可以计算错误元素的数量:
(count false? lst)
有什么我想念的吗？
最佳答案
您正在寻找过程身份:
(count identity '(#t #f #t #t #f))
=> 3
(count identity '(1 2 #t #f #f 9))
=> 4
关于scheme - 如何计算 bool 列表中 true 元素的数量？，我们在Stack Overflow上找到一个类似的问题： https://stackoverflow.com/questions/19805933/