22

计算列表中的所有元素是 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 中如此优雅地表达吗?

4

4 回答 4

40
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))
于 2012-06-07T15:04:48.923 回答
6

group从 Data.List 库中调用,

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

给我们:

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

一个列表友好且相对“幼稚”的实现。

于 2012-06-07T15:10:54.447 回答
1

另一个实现:

def count[A](xs: Seq[A]): Seq[(A, Int)] = xs.distinct.map(x => (x, xs.count(_ == x)))
于 2013-04-30T12:31:22.020 回答
0

进行直译,让我们试试这个:

// Implementing this one in Scala
def fromSeqWith[A, B](s: Seq[(A, B)])(f: (B, B) => B) =
    s groupBy (_._1) mapValues (_ map (_._2) reduceLeft f)

def count[A](xs: Seq[A]) = fromSeqWith(xs map (_ -> 1))(_+_).toSeq

ScalagroupBy让这变得比它需要的更复杂——有人呼吁groupWithor groupInto,但他们并没有使 Odersky 成为标准库包含的标准。

于 2012-06-08T05:00:13.870 回答