Submission #169019

Source Code Expand

import Control.Applicative
import Control.Monad
import Data.List

main :: IO ()
main = do
    n <- readLn
    xs <- replicateM n getLine
    putStrLn . snd . last . sort . map (\x -> (length x, head x)) . group .sort $ xs

Submission Info

Submission Time
Task B - 投票
User BLADE_BRAVE0w0
Language Haskell (GHC 7.4.1)
Score 100
Code Size 229 Byte
Status AC
Exec Time 140 ms
Memory 1940 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 3
AC × 18
Set Name Test Cases
Sample sample_01.txt, sample_02.txt, sample_03.txt
All sample_01.txt, sample_02.txt, sample_03.txt, case_01.txt, case_02.txt, case_03.txt, case_04.txt, case_05.txt, case_06.txt, case_07.txt, case_08.txt, case_09.txt, case_10.txt, case_11.txt, case_12.txt, case_13.txt, case_14.txt, case_15.txt
Case Name Status Exec Time Memory
case_01.txt AC 140 ms 1316 KB
case_02.txt AC 25 ms 1320 KB
case_03.txt AC 24 ms 1432 KB
case_04.txt AC 25 ms 1444 KB
case_05.txt AC 25 ms 1324 KB
case_06.txt AC 26 ms 1940 KB
case_07.txt AC 25 ms 1572 KB
case_08.txt AC 25 ms 1324 KB
case_09.txt AC 25 ms 1316 KB
case_10.txt AC 25 ms 1432 KB
case_11.txt AC 25 ms 1484 KB
case_12.txt AC 25 ms 1324 KB
case_13.txt AC 26 ms 1832 KB
case_14.txt AC 27 ms 1488 KB
case_15.txt AC 25 ms 1444 KB
sample_01.txt AC 32 ms 1320 KB
sample_02.txt AC 25 ms 1428 KB
sample_03.txt AC 25 ms 1428 KB