RosettaCodeData/Task/Dot-product/Aime/dot-product.aime
2018-06-22 20:57:24 +00:00

21 lines
218 B
Text

real
dp(list a, list b)
{
real p, v;
integer i;
p = 0;
for (i, v in a) {
p += v * b[i];
}
p;
}
integer
main(void)
{
o_(dp(list(1r, 3r, -5r), list(4r, -2r, -1r)), "\n");
0;
}