11 lines
208 B
Text
11 lines
208 B
Text
define mean(v);
|
|
lvars n = length(v), i, s = 0;
|
|
if n = 0 then
|
|
return(0);
|
|
else
|
|
for i from 1 to n do
|
|
s + v(i) -> s;
|
|
endfor;
|
|
endif;
|
|
return(s/n);
|
|
enddefine;
|