>>> 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.Strict as V >>> V.minimumBy (comparing fst) $ V.fromList [(2,'a'), (1,'b')] (1,'b') >>> V.minimumBy (comparing fst) $ V.fromList [(1,'a'), (1,'b')] (1,'a')