uvector-0.1.1.1: tests/Fusion/maximumBy.hs
import Data.Array.Vector import Data.Bits main = print . maximumByU (\x y -> GT) . mapU (*2) . mapU (`shiftL` 2) $ replicateU (100000000 :: Int) (5::Int)
import Data.Array.Vector import Data.Bits main = print . maximumByU (\x y -> GT) . mapU (*2) . mapU (`shiftL` 2) $ replicateU (100000000 :: Int) (5::Int)