Submission #171527


Source Code Expand

Copy
{-# LANGUAGE BangPatterns #-}

import Control.Applicative
import Control.Monad
import Control.Arrow
import Data.List
import Data.Maybe
import Data.Char
import Text.Printf

readInt = ( readLn :: IO Int )
getInts = map ( read :: String -> Int ) . words <$> getLine

which a b f = if f then a else b
mp [ a, b ] = ( a, b )

main = do
	[ y, m, d ] <- map read . lines <$> getContents

	print $ zellar 2014 5 17 - zellar y m d

zellar y m d = 365 * y' + ( y' `div` 4 ) - ( y' `div` 100 ) + ( y' `div` 400 ) + ( 306 * ( m' + 1 ) `div` 10 ) + d - 429
	where
		y' = if m <= 2 then y - 1 else y
		m' = if m <= 2 then 12 + m else m

Submission Info

Submission Time
Task A - 経過日数
User torus711
Language Haskell (GHC 7.4.1)
Score 100
Code Size 647 Byte
Status AC
Exec Time 44 ms
Memory 1288 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 44 ms 1108 KB
subtask0_sample02.txt AC 31 ms 1192 KB
subtask0_sample03.txt AC 27 ms 1056 KB
subtask0_sample04.txt AC 30 ms 1116 KB
subtask1_01.txt AC 27 ms 1284 KB
subtask1_02.txt AC 28 ms 1176 KB
subtask1_03.txt AC 27 ms 1284 KB
subtask1_04.txt AC 26 ms 1180 KB
subtask1_05.txt AC 25 ms 1248 KB
subtask1_06.txt AC 27 ms 1180 KB
subtask1_07.txt AC 27 ms 1180 KB
subtask1_08.txt AC 28 ms 1288 KB
subtask1_09.txt AC 27 ms 1184 KB
subtask1_10.txt AC 25 ms 1180 KB
subtask1_11.txt AC 25 ms 1052 KB
subtask1_12.txt AC 26 ms 1064 KB
subtask1_13.txt AC 24 ms 1180 KB
subtask1_14.txt AC 24 ms 1288 KB
subtask1_15.txt AC 27 ms 1176 KB
subtask1_16.txt AC 24 ms 1180 KB
subtask1_17.txt AC 26 ms 1288 KB
subtask1_18.txt AC 27 ms 1176 KB
subtask1_19.txt AC 27 ms 1192 KB
subtask1_20.txt AC 29 ms 1108 KB