Submission #226114


Source Code Expand

import Control.Applicative
import Data.List
import qualified Data.Map.Strict 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

Submission Time
Task B - 投票
User motosuke
Language Haskell (GHC 7.4.1)
Score 0
Code Size 424 Byte
Status CE

Compile Error

Main.hs:3:18:
    Could not find module `Data.Map.Strict'
    Use -v to see a list of the files searched for.