Extras.lhs

> module Data.List.Extras (count) where

`count` is `length` with a numeric result type:

> count :: Num b => [a] -> b
> count = fromIntegral . length