1{-# LANGUAGE ParallelArrays #-}
2
3dotp_double :: [:Double:] -> [:Double:] -> Double
4dotp_double xs ys = sumP [:x * y| x <- xs| y <- ys:]
5