移調的長度和過濾器只是一個foldr相似

Question

我有這樣的功能：

count :: Int -> [(Float,Int)] -> Int 
count n p = length $ filter ((==n).snd) p 

，我想它移植到foldr相似，但具有與該lambda函數

Answer 1

煩惱IM試試這個：

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