计算整数列表的模式?

时间:2018-05-09 21:20:34

标签: f# average

是否有内置函数来计算F#中整数列表的模式?

如果我有一个整数列表,如下:

let integers = [1; 2; 3; 4; 5; 3]

我希望结果为3

1 个答案:

答案 0 :(得分:6)

不,没有这样的内置功能。这是一个天真的实现:

let mode = function
    | [] -> None
    | xs -> 
        let mostFrequentTwo =
            xs
            |> Seq.groupBy id 
            |> Seq.map (fun (n, ns) -> n, Seq.length ns)
            |> Seq.sortByDescending snd
            |> Seq.truncate 2
            |> Seq.toList

        match mostFrequentTwo with
        | [(x, xSize); (_, ySize)] when xSize > ySize -> Some x
        | [(x, _)] -> Some x
        | _ -> None

首先,它对列表中的数字进行分组,然后获取每个组的大小,然后按照大小按降序对组进行排序,然后选择前两个。如果有两个组并且第一个组较大,那么这就是模式;如果只有一个组,那么它就是模式;否则没有模式。

我把这个实现称为“天真”,因为它做了一些严格说来不必要的事情:更好的方法是首先对数字进行排序,然后仔细查看前两个组,并比较它们的大小。然而,编写和更难理解会更复杂,但上述解决方案的计算复杂性仍为n * log n(甚至是线性的,具体取决于分组和排序实现),因此似乎没有必要在看到性能数据之前进行优化。