Submission #42156

Source Code Expand

import Data.Time.Calendar

getArray str = map (read :: String -> Int) (words str)

main = do
	[ma, da] <- fmap getArray getLine
	[mb, db] <- fmap getArray getLine
	print $ diffDays (fromGregorian 2012 mb db) (fromGregorian 2012 ma da)

Submission Info

Submission Time
Task A - 招待状
User mkiken
Language Haskell (GHC 7.4.1)
Score 100
Code Size 241 Byte
Status AC
Exec Time 76 ms
Memory 1432 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 33
Set Name Test Cases
All input_0.txt, input_1.txt, input_10.txt, input_11.txt, input_12.txt, input_13.txt, input_14.txt, input_15.txt, input_16.txt, input_17.txt, input_18.txt, input_19.txt, input_2.txt, input_20.txt, input_21.txt, input_22.txt, input_23.txt, input_24.txt, input_25.txt, input_26.txt, input_27.txt, input_28.txt, input_29.txt, input_3.txt, input_30.txt, input_31.txt, input_32.txt, input_4.txt, input_5.txt, input_6.txt, input_7.txt, input_8.txt, input_9.txt
Case Name Status Exec Time Memory
input_0.txt AC 76 ms 1320 KB
input_1.txt AC 28 ms 1332 KB
input_10.txt AC 28 ms 1336 KB
input_11.txt AC 26 ms 1344 KB
input_12.txt AC 28 ms 1336 KB
input_13.txt AC 27 ms 1368 KB
input_14.txt AC 27 ms 1268 KB
input_15.txt AC 25 ms 1368 KB
input_16.txt AC 48 ms 1340 KB
input_17.txt AC 27 ms 1420 KB
input_18.txt AC 28 ms 1332 KB
input_19.txt AC 25 ms 1376 KB
input_2.txt AC 26 ms 1340 KB
input_20.txt AC 26 ms 1340 KB
input_21.txt AC 27 ms 1340 KB
input_22.txt AC 26 ms 1428 KB
input_23.txt AC 26 ms 1332 KB
input_24.txt AC 26 ms 1336 KB
input_25.txt AC 27 ms 1332 KB
input_26.txt AC 26 ms 1428 KB
input_27.txt AC 28 ms 1340 KB
input_28.txt AC 25 ms 1336 KB
input_29.txt AC 37 ms 1340 KB
input_3.txt AC 25 ms 1340 KB
input_30.txt AC 25 ms 1424 KB
input_31.txt AC 25 ms 1428 KB
input_32.txt AC 32 ms 1424 KB
input_4.txt AC 26 ms 1340 KB
input_5.txt AC 24 ms 1336 KB
input_6.txt AC 25 ms 1340 KB
input_7.txt AC 27 ms 1340 KB
input_8.txt AC 25 ms 1332 KB
input_9.txt AC 29 ms 1432 KB