Averages/Mode: Difference between revisions
no edit summary
(Added Quackery.) |
No edit summary |
||
Line 3,412:
Buf_Quit(OK)
Statline_Message(@10)</lang>
=={{header|Vlang}}==
<lang vlang>fn main() {
println(mode([2, 7, 1, 8, 2]))
println(mode([2, 7, 1, 8, 2, 8]))
}
fn mode(a []int) []int {
mut m := map[int]int{}
for v in a {
m[v]++
}
mut mode := []int{}
mut n := 0
for k, v in m {
match true {
v > n {
n = v
mode = [k]
}
v<n{}
else {
mode << k
}
}
}
return mode
}</lang>
{{out}}
<pre>[2]
[2, 8]
</pre>
Or using `math.stats` module
<lang vlang>import math.stats
fn main() {
println(stats.mode<int>([2, 7, 1, 8, 2]))
println(stats.mode<int>([2, 7, 1, 8, 2, 8]))
}</lang>
{{out}}
<pre>2
2
</pre>
=={{header|Wren}}==
| |||