14 lines
227 B
Text
14 lines
227 B
Text
class VECOPS is
|
|
mean(v:VEC):FLT is
|
|
m ::= 0.0;
|
|
loop m := m + v.aelt!; end;
|
|
return m / v.dim.flt;
|
|
end;
|
|
end;
|
|
|
|
class MAIN is
|
|
main is
|
|
v ::= #VEC(|1.0, 5.0, 7.0|);
|
|
#OUT + VECOPS::mean(v) + "\n";
|
|
end;
|
|
end;
|