Averages/Mode: Difference between revisions
added Arturo
Thundergnat (talk | contribs) m (Regularize non-standard header markup) |
Drkameleon (talk | contribs) (added Arturo) |
||
Line 266:
modeOf({a:12, b:4, c:"rhubarb", d:88, e:"rhubarb", f:17, g:"custard", h:4.0, i:4, j:88})
--> {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}}==
| |||