Anonymous user
Averages/Mode: Difference between revisions
→{{header|Wren}}
m (added output) |
|||
Line 2,649:
Buf_Quit(OK)
Statline_Message(@10)</lang>
=={{header|Wren}}==
<lang wren>class Arithmetic {
static mode(arr) {
var map = {}
for (e in arr) {
if (map[e] == null) map[e] = 0
map[e] = map[e] + 1
}
var max = map.values.reduce {|x, y| x > y ? x : y}
return map.keys.where {|x| map[x] == max}.toList
}
}
System.print(Arithmetic.mode([1,2,3,4,5,5,51,2,3]))
</lang>
{{out}}
[2, 3, 5]
Order may differ
=={{header|XEmacs Lisp}}==
| |||