Submission #29430

---

Source Code Expand

import System.Random

main = do
  n <- fmap read getLine
  table <- mapM (\_ -> getLine) [1..n]
  let strs = [sum[1|'o'<-ts]|ts<-table]
      score = do (n,s)<-zip[1..]strs;replicate s n
      saikyou = snd $ maximum $ zip strs[1..]
  mapM_ (\_ -> print saikyou) [1..200]
  mapM_ (\_ -> bo (length score) score) [1..800]

bo ss score = do
  r <- randomRIO (0,ss-1)
  print (score!!r)

Submission Info

Judge Result