uvector-0.1: examples/fusion/DotP.hs

module DotP where
import Data.Array.Vector

-- > 1 loopU/loopU

dotp :: UArr Double -> UArr Double -> Double
dotp v w = sumU (zipWithU (*) v w)