6 lines
172 B
Text
6 lines
172 B
Text
v@(Vector traits) <dot> w@(Vector traits)
|
|
"Dot-product."
|
|
[
|
|
(0 below: (v size min: w size)) inject: 0 into:
|
|
[| :sum :index | sum + ((v at: index) * (w at: index))]
|
|
].
|