Finding something that appears most in a list...

ID:158286
 
Sep 24 2009, 11:43 am
Ok lets say I have this list:

list(1,2,3,4,5,5,5,5,5,5,5,5,5,5,5,6,7,8,9)

5 obviously appears more than any other number.

But how can I tell, using code, which number appears most in a list?
Sep 24 2009, 11:50 am (Edited on Oct 5 2009, 8:31 am)
 
proc/mode(var/list/L)
  if(!L || !L.len) return
  var/list/found = list()
  var/mostfound = 1
  var/foundmost = L[1]
  for(var/v in L)
    found[v]++
    if(found[v] > mostfound)
      mostfound = found[v]
      foundmost = v
  return foundmost


<edit>fixed an error that was brought up in another thread. Had the inner-most two assignment statements switched around.
Sep 24 2009, 12:16 pm
In response to Garthor
Its a lot more complex to do this than I thought in terms of code required, but thanks very much