14 lines
306 B
Text
14 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
|