是否有一个Haskell相当于Scala的Iterable.maxBy？

Question

Scala的Iterable有maxBy ：

找到产生函数f测量的最大值的第一个元素。

def maxBy[B](f: (A) ⇒ B)(implicit cmp: Ordering[B]): A

例：

scala> Seq(-2, 1).maxBy(Math.abs)
res0: Int = -2

scala> Seq(-2, 3).maxBy(Math.abs)
res1: Int = 3

什么是等效的Haskell方法呢？

Answer 1

Scala的Iterable与Haskell的Traversable 。 然而，在这种情况下， Foldable就足以找到最大一个给定的集合，所以使用maximumBy从Data.Foldable会同compare `on` f （ on从Data.Function ）或comparing f （ comparing来自Data.Ord ） ：

import Data.Foldable (maximumBy, Foldable)
import Data.Ord      (comparing)

maxBy :: (Foldable t, Ord a) => (b -> a) -> t b -> b
maxBy = maximumBy . comparing

Answer 2

使用Data.List.maximumBy和Data.Ord.comparing 。

comparing :: Ord a => (b -> a) -> b -> b -> Ordering

maximumBy :: (a -> a -> Ordering) -> [a] -> a

例：

> import Data.Ord (comparing)
> import Data.List (maximumBy)

> maximumBy (comparing abs) [-2, 1]
-2

> maximumBy (comparing abs) [-2, 3]
3