uvector-0.1: examples/fusion/Map_Map.hs

module Map_Map where
import Data.Array.Vector

-- > 1 loopU/loopU

map_map :: (Int -> Int) -> (Int -> Int) -> UArr Int -> UArr Int
map_map f g = mapU f . mapU g