Averages/Pythagorean means: Difference between revisions
Added Wren
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
(Added Wren) |
||
Line 3,390:
Harmonic Mean: 3.41
Is A >= G >= H? Yes</pre>
=={{header|Wren}}==
<lang ecmascript>var rng = 1..10
var count = rng.count
var A = rng.reduce { |acc, x| acc + x }/count
var G = rng.reduce { |prod, x| prod * x}.pow(1/count)
var H = rng.reduce { |acc, x| acc + 1/x}.pow(-1) * count
System.print("For the numbers %(rng):")
System.print(" Arithmetic mean = %(A)")
System.print(" Geometric mean = %(G)")
System.print(" Harmonic mean = %(H)")
System.print(" A >= G >= H = %(A >= G && G >= H)")</lang>
{{out}}
<pre>
For the numbers 1..10:
Arithmetic mean = 5.5
Geometric mean = 4.5287286881168
Harmonic mean = 3.4141715214741
A >= G >= H = true
</pre>
=={{header|XPL0}}==
|