是否有一個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