17 lines
373 B
Text
17 lines
373 B
Text
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]]]
|