转换长度并过滤到折叠器

Question

我有这个功能：

./

我希望将它转换为折叠器，但我对lambda函数有麻烦

Answer 1

试试这个：

count n = foldr (\(f,i) j -> if (i==n) then j+1 else j) 0