Submission #171661


Source Code Expand

Copy
main = do
    y <- getLine
    m <- getLine
    d <- getLine
    putStrLn $ show $ 735369 -  execYear (stoi y) (stoi m) (stoi d)
 
stoi s = read s :: Int
execYear y m d = (365 * y') +  (y' `div` 4) -  (y' `div` 100) +  (y' `div`400) +  (306 * (m' + 1) `div` 10) + d - 429
    where
        y' = case m of 1 -> y - 1
                       2 -> y - 1
                       _ -> y
        m' = case m of 1 -> 13
                       2 -> 14
                       _ -> m

Submission Info

Submission Time
Task A - 経過日数
User tiwa
Language Haskell (GHC 7.4.1)
Score 100
Code Size 485 Byte
Status AC
Exec Time 62 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 62 ms 1428 KB
subtask0_sample02.txt AC 26 ms 1432 KB
subtask0_sample03.txt AC 26 ms 1296 KB
subtask0_sample04.txt AC 29 ms 1416 KB
subtask1_01.txt AC 27 ms 1300 KB
subtask1_02.txt AC 25 ms 1304 KB
subtask1_03.txt AC 25 ms 1304 KB
subtask1_04.txt AC 27 ms 1304 KB
subtask1_05.txt AC 25 ms 1304 KB
subtask1_06.txt AC 25 ms 1296 KB
subtask1_07.txt AC 26 ms 1308 KB
subtask1_08.txt AC 25 ms 1244 KB
subtask1_09.txt AC 27 ms 1300 KB
subtask1_10.txt AC 25 ms 1304 KB
subtask1_11.txt AC 26 ms 1304 KB
subtask1_12.txt AC 29 ms 1428 KB
subtask1_13.txt AC 26 ms 1308 KB
subtask1_14.txt AC 26 ms 1308 KB
subtask1_15.txt AC 26 ms 1356 KB
subtask1_16.txt AC 26 ms 1308 KB
subtask1_17.txt AC 26 ms 1308 KB
subtask1_18.txt AC 24 ms 1300 KB
subtask1_19.txt AC 25 ms 1304 KB
subtask1_20.txt AC 25 ms 1256 KB