>>> import Data.Ord >>> import qualified Data.Vector as V >>> V.maximumBy (comparing fst) $ V.fromList [(2,'a'), (1,'b')] (2,'a') >>> V.maximumBy (comparing fst) $ V.fromList [(1,'a'), (1,'b')] (1,'a')
>>> import Data.Ord >>> import qualified Data.Vector.Strict as V >>> V.maximumBy (comparing fst) $ V.fromList [(2,'a'), (1,'b')] (2,'a') >>> V.maximumBy (comparing fst) $ V.fromList [(1,'a'), (1,'b')] (1,'a')
>>> import Data.Ord >>> import qualified Data.Vector.Unboxed as VU >>> VU.maximumBy (comparing fst) $ VU.fromList [(2,'a'), (1 :: Int,'b')] (2,'a') >>> VU.maximumBy (comparing fst) $ VU.fromList [(1,'a'), (1 :: Int,'b')] (1,'a')