Re: [Haskell-cafe] Comments and/or Criticisms

On 9/10/07, PR Stanley wrote:

Can anyone come up with a better alternative?

*puts on his pointfree hat* import Control.Arrow ((&&&)) import Data.List (group, sort) countCS :: [Char] -> [(Char, Int)] -- Char can be generalised to any Ord countCS = map (head &&& length) . group . sort Stuart