RosettaCodeData/Task/Averages-Arithmetic-mean/Lucid/averages-arithmetic-mean.lucid
Ingy döt Net db842d013d A-M baby
2013-04-10 21:29:02 -07:00

6 lines
97 B
Text

avg(x)
where
sum = first(x) fby sum + next(x);
n = 1 fby n + 1;
avg = sum / n;
end