20 lines
198 B
Text
20 lines
198 B
Text
real
|
|
mean(list l)
|
|
{
|
|
real sum, x;
|
|
|
|
sum = 0;
|
|
for (, x in l) {
|
|
sum += x;
|
|
}
|
|
|
|
sum / ~l;
|
|
}
|
|
|
|
integer
|
|
main(void)
|
|
{
|
|
o_form("%f\n", mean(list(4.5, 7.25, 5r, 5.75)));
|
|
|
|
0;
|
|
}
|