Averages/Arithmetic mean: Difference between revisions
Content added Content deleted
(add BQN) |
(Add Red) |
||
| Line 2,984: | Line 2,984: | ||
[1000 3 1 4 1 5 9 -1000] -> 2.875 |
[1000 3 1 4 1 5 9 -1000] -> 2.875 |
||
[1E+20 3 1 4 1 5 9 -1E+20] -> 0.0</pre> |
[1E+20 3 1 4 1 5 9 -1E+20] -> 0.0</pre> |
||
=={{header|Red}}== |
|||
Red comes with the <code>average</code> function. |
|||
<lang red>Red ["Arithmetic mean"] |
|||
print average [] |
|||
print average [2 3 5]</lang> |
|||
{{out}} |
|||
<pre> |
|||
none |
|||
3.333333333333334 |
|||
</pre> |
|||
The source code for <code>average</code>: |
|||
<lang red>average: func [ |
|||
"Returns the average of all values in a block" |
|||
block [block! vector! paren! hash!] |
|||
][ |
|||
if empty? block [return none] |
|||
divide sum block to float! length? block |
|||
]</lang> |
|||
=={{header|REXX}}== |
=={{header|REXX}}== |
||