Averages/Mode: Difference between revisions

=={{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]