uvector-0.1: tests/Examples/fuse.hs

import Data.Array.Vector
import Data.Char
import Data.Bits

main = do-- print . toList . mapU (^(2::Int)) $ replicateU 100 (1::Int) -- enumFromToU 1 100
         -- print . sumU . mapU (^(2::Int)) $ replicateU 100 (1::Int) -- enumFromToU 1 100

       --  print . sumU . mapU (^(2::Int)) . replicateU 100000000 $ (1::Int)

       --     print . sum . map f . replicate (100000000::Int) $ (8 :: Int)
              print . sumU . mapU f . replicateU (100000000::Int) $ (8 :: Int)

        --    print . nullU . mapU f . enumFromToU 1 $ 100000000

       --     print . sumU . (\e -> consU 0xdeadbeef e) . replicateU (100000000::Int) $ (8::Int)

f x = x ^ (2::Int)