Submission #116622

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)
    return $ getLarger (head ary) (last ary)

Submission Info

Submission Time
Task A - 正直者
User YU2045
Language Haskell (GHC 7.4.1)
Score 0
Code Size 231 Byte
Status WA
Exec Time 73 ms
Memory 1196 KB

Judge Result

Set Name all
Score / Max Score 0 / 100
Status
WA × 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 WA 73 ms 1192 KB
00_sample_02.txt WA 26 ms 1196 KB
kensho_diff01 WA 25 ms 1040 KB
kensho_diff02 WA 25 ms 1036 KB
kensho_diff03 WA 25 ms 1040 KB
kensho_diff04 WA 26 ms 1116 KB
kensho_diff05 WA 25 ms 1136 KB
kensho_min-max01 WA 25 ms 1096 KB
kensho_min-max02 WA 25 ms 1056 KB
kensho_min-max03 WA 24 ms 1128 KB
kensho_min-max04 WA 25 ms 1040 KB
kensho_min-max05 WA 25 ms 1184 KB
kensho_min-max06 WA 25 ms 1052 KB
kensho_min-max07 WA 24 ms 1048 KB
kensho_min-max08 WA 25 ms 1040 KB
kensho_min-max09 WA 25 ms 1040 KB
kensho_min-max10 WA 24 ms 1052 KB
kensho_rand01 WA 25 ms 1052 KB
kensho_rand02 WA 25 ms 1036 KB
kensho_rand03 WA 24 ms 1128 KB
kensho_rand04 WA 25 ms 1040 KB
kensho_rand05 WA 25 ms 1036 KB
kensho_rand06 WA 25 ms 1040 KB
kensho_rand07 WA 26 ms 1044 KB
kensho_rand08 WA 26 ms 1128 KB
kensho_rand09 WA 25 ms 1040 KB
kensho_rand10 WA 26 ms 1124 KB