5 lines
128 B
ObjectPascal
5 lines
128 B
ObjectPascal
|
##
|
||
|
|
function DotProduct(a, b: array of real) := a.Zip(b, (x, y) -> x * y).Sum;
|
||
|
|
|
||
|
|
DotProduct(|1.0, 3, -5|, |4.0, -2, -1|).println;
|