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.