计算元素的出现次数

Question

计算列表中的所有元素是Haskell中的一个单行:

count xs = toList (fromListWith (+) [(x, 1) | x <- xs])

以下是一个示例用法:

*Main> count "haskell scala"
[(' ',1),('a',3),('c',1),('e',1),('h',1),('k',1),('l',3),('s',2)]

这个函数在Scala中也可以如此优雅地表达吗？

Answer 1

scala> "haskell scala".groupBy(identity).mapValues(_.size).toSeq
res1: Seq[(Char, Int)] = ArrayBuffer((e,1), (s,2), (a,3), ( ,1), (l,3), (c,1), (h,1), (k,1))

Answer 2

回想一下groupData.List库,

group :: [a] -> [[a]]

给我们:

map (head &&& length) . group . sort

一个列表友好且相对"天真"的实现.