Submission #171915


Source Code Expand

Copy
days :: Int -> Int -> Int -> Int
days 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

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

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

Submission Info

Submission Time
Task A - 経過日数
User kotoji
Language Haskell (GHC 7.4.1)
Score 0
Code Size 399 Byte
Status WA
Exec Time 40 ms
Memory 1436 KB

Judge Result

Set Name Sample All
Score / Max Score 0 / 0 0 / 100
Status
WA × 4
WA × 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 WA 40 ms 1436 KB
subtask0_sample02.txt WA 25 ms 1304 KB
subtask0_sample03.txt WA 25 ms 1312 KB
subtask0_sample04.txt WA 24 ms 1320 KB
subtask1_01.txt WA 23 ms 1420 KB
subtask1_02.txt WA 24 ms 1420 KB
subtask1_03.txt WA 23 ms 1320 KB
subtask1_04.txt WA 24 ms 1424 KB
subtask1_05.txt WA 23 ms 1428 KB
subtask1_06.txt WA 25 ms 1320 KB
subtask1_07.txt WA 26 ms 1420 KB
subtask1_08.txt WA 25 ms 1396 KB
subtask1_09.txt WA 26 ms 1344 KB
subtask1_10.txt WA 23 ms 1428 KB
subtask1_11.txt WA 24 ms 1320 KB
subtask1_12.txt WA 24 ms 1316 KB
subtask1_13.txt WA 24 ms 1320 KB
subtask1_14.txt WA 24 ms 1428 KB
subtask1_15.txt WA 23 ms 1424 KB
subtask1_16.txt WA 23 ms 1308 KB
subtask1_17.txt WA 25 ms 1320 KB
subtask1_18.txt WA 25 ms 1312 KB
subtask1_19.txt WA 27 ms 1300 KB
subtask1_20.txt WA 24 ms 1424 KB