Submission #175245

Source Code Expand

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

main :: IO ()
main = do
  n <- read <$> getLine
  ryoris <- replicateM n ( (read :: String -> Int) <$> getLine )
  putStrLn . show $ (!!) (nub . reverse $ sort ryoris) 1

Submission Info

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

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 15
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, 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 46 ms 1832 KB
random_10.txt AC 27 ms 1824 KB
random_2.txt AC 26 ms 1828 KB
random_3.txt AC 26 ms 1824 KB
random_4.txt AC 27 ms 1820 KB
random_5.txt AC 27 ms 1832 KB
random_6.txt AC 26 ms 1824 KB
random_7.txt AC 26 ms 1832 KB
random_8.txt AC 26 ms 1832 KB
random_9.txt AC 26 ms 1832 KB
sample_1.txt AC 25 ms 1396 KB
sample_2.txt AC 24 ms 1312 KB
sample_3.txt AC 25 ms 1432 KB
small_1.txt AC 24 ms 1432 KB
small_2.txt AC 24 ms 1320 KB
small_3.txt AC 25 ms 1308 KB
small_4.txt AC 24 ms 1316 KB
small_5.txt AC 25 ms 1324 KB