Submission #171389


Source Code Expand

Copy
{-# LANGUAGE CPP #-}
#ifndef HDEVTOOLS
{-# OPTIONS_GHC -O2 -funbox-strict-fields #-}
#endif
{-# LANGUAGE BangPatterns, ViewPatterns, OverloadedStrings #-}

main :: IO ()
main = do
  y <- readLn
  m <- readLn
  d <- readLn
  print $ solve y m d

solve :: Int -> Int -> Int -> Int
solve y m d = offset 2014 5 17 - offset y m d

offset :: Int -> Int -> Int -> Int
offset y m d
  | m <= 2 = koshiki (y-1) (m+12) d
  | otherwise = koshiki y m d

koshiki :: Int -> Int -> Int -> Int
koshiki y m d = 365*y + div y 4 - div y 100 + div y 400 + 306 * (m+1) `div` 10 + d - 429

Submission Info

Submission Time
Task A - 経過日数
User mkotha
Language Haskell (GHC 7.4.1)
Score 100
Code Size 589 Byte
Status AC
Exec Time 360 ms
Memory 1564 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 360 ms 1316 KB
subtask0_sample02.txt AC 28 ms 1436 KB
subtask0_sample03.txt AC 28 ms 1428 KB
subtask0_sample04.txt AC 26 ms 1564 KB
subtask1_01.txt AC 26 ms 1436 KB
subtask1_02.txt AC 27 ms 1436 KB
subtask1_03.txt AC 29 ms 1440 KB
subtask1_04.txt AC 27 ms 1436 KB
subtask1_05.txt AC 28 ms 1440 KB
subtask1_06.txt AC 36 ms 1436 KB
subtask1_07.txt AC 29 ms 1392 KB
subtask1_08.txt AC 28 ms 1432 KB
subtask1_09.txt AC 27 ms 1436 KB
subtask1_10.txt AC 29 ms 1440 KB
subtask1_11.txt AC 28 ms 1312 KB
subtask1_12.txt AC 30 ms 1440 KB
subtask1_13.txt AC 30 ms 1432 KB
subtask1_14.txt AC 26 ms 1436 KB
subtask1_15.txt AC 28 ms 1396 KB
subtask1_16.txt AC 29 ms 1440 KB
subtask1_17.txt AC 28 ms 1424 KB
subtask1_18.txt AC 32 ms 1368 KB
subtask1_19.txt AC 57 ms 1436 KB
subtask1_20.txt AC 30 ms 1388 KB