uvector-0.1: examples/fusion/Map_Map_Replicate.hs

module Map_Map_Replicate where
import Data.Array.Vector

-- > 2 loopU/loopU

map_map_replicate :: (UA a, UA b, UA c)
                  => (b -> c) -> (a -> b) -> Int -> a -> UArr c
map_map_replicate f g n = mapU f . mapU g . replicateU n