Anonymous user
Averages/Root mean square: Difference between revisions
→{{header|Common Lisp}}
m (→[[Averages/Root_mean_square#ALGOL 68]]: rm ABS OPerator) |
|||
Line 148:
(rms (loop for i from 1 upto 10 collect i))</lang>
=={{header|D}}==
<lang d>import std.stdio, std.math, std.algorithm, std.range;
real rms(Td)(Td d) {
return sqrt(reduce!("a+b*b")(d) / cast(real)d.length);
}
void main() {
writefln("%.19f", rms(iota(1, 11)));
}</lang>
Output:
<pre>
6.2048368229954282979
</pre>
=={{header|Erlang}}==
|