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