4 lines
128 B
ObjectPascal
4 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;
|