uvector-0.1.1.1: tests/Fusion/sum.hs

import Data.Array.Vector
import Data.Bits

main = print . sumU
             . mapU (*2)
             . mapU (`shiftL` 2)
             $ replicateU (100000000 :: Int) (5::Int)