Averages/Pythagorean means: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
(Added Wren) |
||
Line 3,390: | Line 3,390: | ||
Harmonic Mean: 3.41 |
Harmonic Mean: 3.41 |
||
Is A >= G >= H? Yes</pre> |
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}}== |
=={{header|XPL0}}== |