AtCoder Beginner Contest 019

Submission #345043

Source codeソースコード

{-# 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

Task問題 A - 高橋くんと年齢
User nameユーザ名 torus711
Created time投稿日時
Language言語 Haskell (GHC 7.4.1)
Status状態 AC
Score得点 100
Source lengthソースコード長 459 Byte
File nameファイル名
Exec time実行時間 30 ms
Memory usageメモリ使用量 1432 KB

Test case

Set

Set name Score得点 / Max score Cases
Sample - 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

Test case

Case name Status状態 Exec time実行時間 Memory usageメモリ使用量
0.txt AC 27 ms 1312 KB
1.txt AC 28 ms 1308 KB
10.txt AC 26 ms 1328 KB
11.txt AC 26 ms 1332 KB
12.txt AC 27 ms 1252 KB
13.txt AC 26 ms 1308 KB
14.txt AC 28 ms 1312 KB
15.txt AC 27 ms 1308 KB
16.txt AC 27 ms 1252 KB
17.txt AC 30 ms 1324 KB
18.txt AC 28 ms 1332 KB
19.txt AC 28 ms 1312 KB
2.txt AC 26 ms 1320 KB
3.txt AC 27 ms 1304 KB
4.txt AC 26 ms 1308 KB
5.txt AC 27 ms 1304 KB
6.txt AC 28 ms 1432 KB
7.txt AC 26 ms 1336 KB
8.txt AC 26 ms 1244 KB
9.txt AC 27 ms 1332 KB
subtask0_sample_01.txt AC 27 ms 1324 KB
subtask0_sample_02.txt AC 26 ms 1320 KB
subtask0_sample_03.txt AC 27 ms 1328 KB
subtask0_sample_04.txt AC 28 ms 1308 KB