Averages/Pythagorean means: Difference between revisions
Content added Content deleted
Basicgames (talk | contribs) |
(→min: add) |
||
Line 2,166: | Line 2,166: | ||
geometric_mean(L), numer; /* 4.528728688116765 */ |
geometric_mean(L), numer; /* 4.528728688116765 */ |
||
harmonic_mean(L), numer; /* 3.414171521474055 */</syntaxhighlight> |
harmonic_mean(L), numer; /* 3.414171521474055 */</syntaxhighlight> |
||
=={{header|min}}== |
|||
<syntaxhighlight lang="min">'avg ^A |
|||
(dup product 1 rolldown size / pow) ^G |
|||
('size keep (1 swap /) (+) map-reduce /) ^H |
|||
(((1 10)) range (((A) (G) (H))) cleave) => (puts!) foreach</syntaxhighlight> |
|||
{{out}} |
|||
<pre>5.5 |
|||
4.528728688116765 |
|||
3.414171521474055</pre> |
|||
=={{header|Modula-2}}== |
=={{header|Modula-2}}== |