aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

June 2018 Update

Browse source
This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions
Download patch file Download diff file Expand all files Collapse all files

9
Task/Averages-Arithmetic-mean/Aime/averages-arithmetic-mean.aime
View file

@ -1,21 +1,20 @@
real
mean(list l)
{
integer i;
real sum, x;
sum = 0;
for (i, x in l) {
for (, x in l) {
sum += x;
}
return sum / ~l;
sum / ~l;
}
integer
main(void)
{
o_form("%f\n", mean(l_effect(4.5, 7.25, 5r, 5.75)));
o_form("%f\n", mean(list(4.5, 7.25, 5r, 5.75)));
return 0;
0;
}