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;