F# 库是否有 argMax 的标准函数？

Question

我是 F# 的新手，正在编写一些简单的算法来适应这门语言，这需要 argMax。标准库是否带有用于搜索最大化函数的列表元素的函数？也就是说，如果存在一个行为类似于此的现有函数：

let argMax f xs =
  let rec go a fa zs =
    match zs with
      | [] -> a
      | z :: zs' ->
        let fz = f z
        if fz > fa
        then go z fz zs'
        else go a fa zs'
  match xs with
    | []       -> invalidArg "xs" "empty"
    | x :: xs' -> go x (f x) xs'

Answer 1

是的，但是它叫做 List.maxBy。

这是一个例子：

let f x = -(x * x) + 100 * x + 1000
List.maxBy f [0..1000]
// val it : int = 50

f 50
// val it : int = 3500

还有List.minBy，Seq和Array也有同样的功能。

F# 库是否有 argMax 的标准函数？

Does the F# library has a standard function for `argMax`?

f#

argmax