Artifact 085ebbfed87f63e82bc40e2ca97d11bd730127ec11ca872a0dc30592e10cf2d9:

• File src/scalprod.red — part of check-in [5ce5316a33] at 2021-03-01 07:23:02 on branch trunk — Scripts by Dieter (Olli) Egger (November 30th 2019) (user: jeff@gridfinity.com, size: 126) [annotate] [blame] [check-ins using] [more...]

procedure scalprod(a,b); begin;
scalar n; 
n:=first (length(a))-1;
result:=for i:=0:n sum a(i)*b(i);
return result;
end;
end;