11 lines
324 B
Text
11 lines
324 B
Text
define("dotp(a,b)sum,i") :(dotp_end)
|
|
dotp i = 1; sum = 0
|
|
loop sum = sum + (a<i> * b<i>)
|
|
i = i + 1 ?a<i> :s(loop)
|
|
dotp = sum :(return)
|
|
dotp_end
|
|
|
|
a = array(3); a<1> = 1; a<2> = 3; a<3> = -5;
|
|
b = array(3); b<1> = 4; b<2> = -2; b<3> = -1;
|
|
output = dotp(a,b)
|
|
end
|