Submission #116623

Source Code Expand

getLarger :: Integer -> Integer -> Integer
getLarger x y | x > y = x
							| otherwise = y

main = do
    args <- getLine
    let ary = map (\x -> read x :: Integer) (words args)
    print $ getLarger (head ary) (last ary)

Submission Info

Submission Time
Task A - 正直者
User YU2045
Language Haskell (GHC 7.4.1)
Score 100
Code Size 230 Byte
Status AC
Exec Time 82 ms
Memory 1196 KB

Judge Result

Set Name all
Score / Max Score 100 / 100
Status
AC × 27
Set Name Test Cases
all 00_sample_01.txt, 00_sample_02.txt, kensho_diff01, kensho_diff02, kensho_diff03, kensho_diff04, kensho_diff05, kensho_min-max01, kensho_min-max02, kensho_min-max03, kensho_min-max04, kensho_min-max05, kensho_min-max06, kensho_min-max07, kensho_min-max08, kensho_min-max09, kensho_min-max10, kensho_rand01, kensho_rand02, kensho_rand03, kensho_rand04, kensho_rand05, kensho_rand06, kensho_rand07, kensho_rand08, kensho_rand09, kensho_rand10
Case Name Status Exec Time Memory
00_sample_01.txt AC 82 ms 1184 KB
00_sample_02.txt AC 28 ms 1176 KB
kensho_diff01 AC 26 ms 1160 KB
kensho_diff02 AC 26 ms 1164 KB
kensho_diff03 AC 26 ms 1184 KB
kensho_diff04 AC 26 ms 1052 KB
kensho_diff05 AC 26 ms 1176 KB
kensho_min-max01 AC 24 ms 1172 KB
kensho_min-max02 AC 24 ms 1136 KB
kensho_min-max03 AC 24 ms 1164 KB
kensho_min-max04 AC 26 ms 1164 KB
kensho_min-max05 AC 24 ms 1164 KB
kensho_min-max06 AC 26 ms 1172 KB
kensho_min-max07 AC 25 ms 1172 KB
kensho_min-max08 AC 26 ms 1196 KB
kensho_min-max09 AC 27 ms 1168 KB
kensho_min-max10 AC 25 ms 1168 KB
kensho_rand01 AC 25 ms 1168 KB
kensho_rand02 AC 26 ms 1192 KB
kensho_rand03 AC 26 ms 1044 KB
kensho_rand04 AC 25 ms 1168 KB
kensho_rand05 AC 27 ms 1176 KB
kensho_rand06 AC 26 ms 1176 KB
kensho_rand07 AC 25 ms 1064 KB
kensho_rand08 AC 26 ms 1164 KB
kensho_rand09 AC 26 ms 1168 KB
kensho_rand10 AC 25 ms 1172 KB