uvector-0.1.1.1: examples/dotp/DotPSeq.hs

module DotPSeq where

import Data.Array.Parallel.Unlifted

dotp :: UArr Double -> UArr Double -> Double
{-# NOINLINE dotp #-}
dotp v w = sumU (zipWithU (*) v w)