Submission #345043


Source Code Expand

Copy
{-# LANGUAGE ScopedTypeVariables #-}
{-# LANGUAGE BangPatterns #-}

import Control.Applicative
import Control.Monad
import Control.Arrow
import Data.List
import Data.Maybe
import Data.Char
import Text.Printf

readInt = ( readLn :: IO Int )
getInts = map ( read :: String -> Int ) . words <$> getLine

which a b f = if f then a else b
mp [ a, b ] = ( a, b )

main = getLine >>= print . ( !! 1 ) . sort . map ( read :: String -> Int ) . words

Submission Info

Submission Time
Task A - 高橋くんと年齢
User torus711
Language Haskell (GHC 7.4.1)
Score 100
Code Size 459 Byte
Status
Exec Time 30 ms
Memory 1432 KB

Judge Result

Set Name Score / Max Score Test Cases
Sample 0 / 0 subtask0_sample_01.txt, subtask0_sample_02.txt, subtask0_sample_03.txt, subtask0_sample_04.txt
All 100 / 100 0.txt, 1.txt, 10.txt, 11.txt, 12.txt, 13.txt, 14.txt, 15.txt, 16.txt, 17.txt, 18.txt, 19.txt, 2.txt, 3.txt, 4.txt, 5.txt, 6.txt, 7.txt, 8.txt, 9.txt, subtask0_sample_01.txt, subtask0_sample_02.txt, subtask0_sample_03.txt, subtask0_sample_04.txt
Case Name Status Exec Time Memory
0.txt 27 ms 1312 KB
1.txt 28 ms 1308 KB
10.txt 26 ms 1328 KB
11.txt 26 ms 1332 KB
12.txt 27 ms 1252 KB
13.txt 26 ms 1308 KB
14.txt 28 ms 1312 KB
15.txt 27 ms 1308 KB
16.txt 27 ms 1252 KB
17.txt 30 ms 1324 KB
18.txt 28 ms 1332 KB
19.txt 28 ms 1312 KB
2.txt 26 ms 1320 KB
3.txt 27 ms 1304 KB
4.txt 26 ms 1308 KB
5.txt 27 ms 1304 KB
6.txt 28 ms 1432 KB
7.txt 26 ms 1336 KB
8.txt 26 ms 1244 KB
9.txt 27 ms 1332 KB
subtask0_sample_01.txt 27 ms 1324 KB
subtask0_sample_02.txt 26 ms 1320 KB
subtask0_sample_03.txt 27 ms 1328 KB
subtask0_sample_04.txt 28 ms 1308 KB