import Data.List (genericLength)

count::(Integer->Bool)->[Integer]->Integer
count op xs = genericLength (filter(True ==) (map op xs))

main = do
print $ count 3 [3, 4, 5, 3, 5, 3]