5 lines
200 B
Haskell
5 lines
200 B
Haskell
dotp :: Num a => [a] -> [a] -> a
|
|
dotp a b | length a == length b = sum (zipWith (*) a b)
|
|
| otherwise = error "Vector sizes must match"
|
|
|
|
main = print $ dotp [1, 3, -5] [4, -2, -1] -- prints 3
|