Submission #226115

---

Source Code Expand

import Control.Applicative
import Data.List
import qualified Data.Map as M

main :: IO ()
main = do
    n <- read <$> getLine :: IO Int
    let iter 0 m = return m
        iter n m = do
            s <- getLine
            let m' = M.insertWith (+) s 1 m
            iter (n - 1) m'
    allnames <- iter n $ M.empty
    putStrLn $ fst $ maximumBy (\(_, b1) (_, b2) -> b1 `compare` b2) $ M.toList allnames

Submission Info

Judge Result