Extras.lhs

> module Data.List.Extras (pairs, argmax) where
>
> import Control.Applicative ((<*>))
> import Data.Function (on)
> import Data.List (maximumBy)

`pairs` takes a list, and returns a list of consecutive elements pairs:

> pairs :: [a] -> [(a,a)]
> pairs = zip <*> tail

`argmax` takes a function and a list, and returns the element of the
list for which the given function attains its maximum value:

> argmax :: Ord b => (a -> b) -> [a] -> a
> argmax = maximumBy . on compare