15 lines
306 B
Text
15 lines
306 B
Text
|
procedure main(args)
|
||
|
|
every write(!mode(args))
|
||
|
|
end
|
||
|
|
|
||
|
|
procedure mode(A)
|
||
|
|
hist := table(0)
|
||
|
|
every hist[!A] +:= 1
|
||
|
|
hist := sort(hist, 2)
|
||
|
|
modeCnt := hist[*hist][2]
|
||
|
|
every modeP := hist[*hist to 1 by -1] do {
|
||
|
|
if modeCnt = modeP[2] then suspend modeP[1]
|
||
|
|
else fail
|
||
|
|
}
|
||
|
|
end
|