[Haskell-cafe] Comments and/or Criticisms

[Stuart Cook]

On 9/10/07, PR Stanley <prstanley at ntlworld.com> 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