Submission #171973


Source Code Expand

Copy
day :: Int -> Int -> Int -> Int
day y m d = 365 * y + floor ((fromIntegral y)/4) - floor ((fromIntegral y)/100) + floor ((fromIntegral y)/400) + floor (306*((fromIntegral m)+1)/10) + d - 429

today :: Int
today = day 2014 5 17

check :: [Int] -> [Int]
check [y, m, d] 
    | m == 1 || m == 2 = [y - 1, m + 12, d]
    | otherwise = [y, m, d]

main = print . (\x y -> x - y) today . (\[y, m, d] -> day y m d) . check . map read . lines =<< getContents

Submission Info

Submission Time
Task A - 経過日数
User kotoji
Language Haskell (GHC 7.4.1)
Score 100
Code Size 460 Byte
Status AC
Exec Time 42 ms
Memory 1432 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 100 / 100
Status
AC × 4
AC × 24
Set Name Test Cases
Sample subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt, subtask0_sample04.txt
All subtask0_sample01.txt, subtask0_sample02.txt, subtask0_sample03.txt, subtask0_sample04.txt, subtask1_01.txt, subtask1_02.txt, subtask1_03.txt, subtask1_04.txt, subtask1_05.txt, subtask1_06.txt, subtask1_07.txt, subtask1_08.txt, subtask1_09.txt, subtask1_10.txt, subtask1_11.txt, subtask1_12.txt, subtask1_13.txt, subtask1_14.txt, subtask1_15.txt, subtask1_16.txt, subtask1_17.txt, subtask1_18.txt, subtask1_19.txt, subtask1_20.txt
Case Name Status Exec Time Memory
subtask0_sample01.txt AC 42 ms 1320 KB
subtask0_sample02.txt AC 25 ms 1432 KB
subtask0_sample03.txt AC 25 ms 1432 KB
subtask0_sample04.txt AC 27 ms 1368 KB
subtask1_01.txt AC 25 ms 1324 KB
subtask1_02.txt AC 25 ms 1312 KB
subtask1_03.txt AC 25 ms 1316 KB
subtask1_04.txt AC 25 ms 1320 KB
subtask1_05.txt AC 25 ms 1312 KB
subtask1_06.txt AC 25 ms 1320 KB
subtask1_07.txt AC 25 ms 1328 KB
subtask1_08.txt AC 25 ms 1320 KB
subtask1_09.txt AC 25 ms 1320 KB
subtask1_10.txt AC 25 ms 1320 KB
subtask1_11.txt AC 27 ms 1304 KB
subtask1_12.txt AC 25 ms 1316 KB
subtask1_13.txt AC 27 ms 1340 KB
subtask1_14.txt AC 26 ms 1320 KB
subtask1_15.txt AC 24 ms 1312 KB
subtask1_16.txt AC 24 ms 1312 KB
subtask1_17.txt AC 24 ms 1288 KB
subtask1_18.txt AC 24 ms 1320 KB
subtask1_19.txt AC 26 ms 1320 KB
subtask1_20.txt AC 26 ms 1316 KB