6 lines
142 B
Text
6 lines
142 B
Text
open list
|
|
|
|
dotp a b | length a == length b = sum (zipWith (*) a b)
|
|
| else = fail "Vector sizes must match."
|
|
|
|
dotp [1,3,-5] [4,-2,-1]
|