Averages/Pythagorean means: Difference between revisions
added Arturo
m (→{{header|Phix}}: iff went builtin in 2016!) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 343:
<lang AppleScript>{values:{arithmetic:5.5, geometric:4.528728688117, harmonic:3.414171521474},
inequalities:{|A >= G|:true}, |G >= H|:true}</lang>
=={{header|Arturo}}==
<lang rebol>arithmeticMean: function [arr]->
average arr
geometricMean: function [arr]->
(product arr) ^ 1//size arr
harmonicMean: function [arr]->
(size arr) // sum map arr 'i [1//i]
print arithmeticMean 1..10
print geometricMean 1..10
print harmonicMean 1..10</lang>
{{out}}
<pre>5.5
4.528728688116765
3.414171521474055</pre>
=={{header|AutoHotkey}}==
| |||