Submission #1770005

Source Code Expand

import Data.List

main :: IO ()
main = do
    n <- readLn :: IO Int
    r <- mapM (\_ -> readLn :: IO Int) [1..n]
    print $ (sortBy (flip compare) . nub) r !! 1

Submission Info

Submission Time
Task B - 心配性な富豪、ファミリーレストランに行く。
User atctk
Language Haskell (GHC 7.10.3)
Score 100
Code Size 170 Byte
Status AC
Exec Time 2 ms
Memory 1020 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 18
Set Name Test Cases
All random_1.txt, random_10.txt, random_2.txt, random_3.txt, random_4.txt, random_5.txt, random_6.txt, random_7.txt, random_8.txt, random_9.txt, sample_1.txt, sample_2.txt, sample_3.txt, small_1.txt, small_2.txt, small_3.txt, small_4.txt, small_5.txt
Case Name Status Exec Time Memory
random_1.txt AC 2 ms 1020 KB
random_10.txt AC 2 ms 1020 KB
random_2.txt AC 2 ms 1020 KB
random_3.txt AC 2 ms 1020 KB
random_4.txt AC 2 ms 1020 KB
random_5.txt AC 2 ms 1020 KB
random_6.txt AC 2 ms 1020 KB
random_7.txt AC 2 ms 1020 KB
random_8.txt AC 2 ms 1020 KB
random_9.txt AC 2 ms 1020 KB
sample_1.txt AC 2 ms 508 KB
sample_2.txt AC 2 ms 508 KB
sample_3.txt AC 2 ms 508 KB
small_1.txt AC 1 ms 508 KB
small_2.txt AC 2 ms 508 KB
small_3.txt AC 2 ms 508 KB
small_4.txt AC 2 ms 508 KB
small_5.txt AC 2 ms 508 KB