Averages/Mode: Difference between revisions
Frink
m (→{{header|J}}) |
(Frink) |
||
Line 1,296:
2 3
</pre>
=={{header|Frink}}==
<lang frink>modes[vals] :=
{
count = countToArray[vals]
biggest = count@0@1
result = new array
for i = rangeOf[count]
if count@i@1 < biggest
break // count is sorted so we can bail out when numbers decrease
else
result.push[count@i@0]
return result
}
println[modes[[1, 3, 6, 6, 6, 6, 7, 7, 12, 12, 17]]]
println[modes[[1, 1, 2, 4, 4]]]</lang>
{{out}}
<pre>
[6]
[1, 4]
=={{header|GAP}}==
| |||