Averages/Mode: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) m (Regularize non-standard header markup) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 266: | Line 266: | ||
modeOf({a:12, b:4, c:"rhubarb", d:88, e:"rhubarb", f:17, g:"custard", h:4.0, i:4, j:88}) |
modeOf({a:12, b:4, c:"rhubarb", d:88, e:"rhubarb", f:17, g:"custard", h:4.0, i:4, j:88}) |
||
--> {4}</lang> |
--> {4}</lang> |
||
=={{header|Arturo}}== |
|||
<lang rebol>getMode: function [arr][ |
|||
freqs: new #[] |
|||
loop arr 'i [ |
|||
k: to :string i |
|||
if not? key? freqs k -> set freqs k 0 |
|||
set freqs k (freqs \ k) + 1 |
|||
] |
|||
maximum: max values freqs |
|||
select keys freqs 'i -> maximum = freqs \ i |
|||
] |
|||
print getMode [1 3 6 6 6 6 7 7 12 12 17] |
|||
print getMode [1 1 2 4 4]</lang> |
|||
{{out}} |
|||
<pre>6 |
|||
1 4</pre> |
|||
=={{header|AutoHotkey}}== |
=={{header|AutoHotkey}}== |