haskell-src-exts-1.24.0: tests/examples/ParallelArrays.hs

{-# LANGUAGE ParallelArrays #-}

dotp_double :: [:Double:] -> [:Double:] -> Double
dotp_double xs ys = sumP [:x * y | x <- xs | y <- ys:]