Submission #65976


Source Code Expand

main = do
	year <- readLn
	putStrLn $ solve year

solve :: Int -> String
solve year = if isLeap year then "YES" else "NO"
	where
		isLeap :: Int -> Bool
		isLeap y 
			| y `mod` 400 == 0 = True
			| y `mod` 100 == 0 = False
			| y `mod` 4 == 0 = True
			| otherwise = False

Submission Info

Submission Time
Task A - うるう年
User torus711
Language Haskell (GHC 7.4.1)
Score 100
Code Size 287 Byte
Status AC
Exec Time 67 ms
Memory 1172 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 44
Set Name Test Cases
All 00_sample_00.txt, 00_sample_01.txt, 00_sample_02.txt, 00_sample_03.txt, 01_rnd_00.txt, 01_rnd_01.txt, 01_rnd_02.txt, 01_rnd_03.txt, 01_rnd_04.txt, 01_rnd_05.txt, 01_rnd_06.txt, 01_rnd_07.txt, 01_rnd_08.txt, 01_rnd_09.txt, 01_rnd_10.txt, 01_rnd_11.txt, 01_rnd_12.txt, 01_rnd_13.txt, 01_rnd_14.txt, 01_rnd_15.txt, 01_rnd_16.txt, 01_rnd_17.txt, 01_rnd_18.txt, 01_rnd_19.txt, 02_100_00.txt, 02_100_01.txt, 02_100_02.txt, 02_100_03.txt, 02_100_04.txt, 02_100_05.txt, 02_100_06.txt, 02_100_07.txt, 02_100_08.txt, 02_100_09.txt, 02_100_10.txt, 02_100_11.txt, 02_100_12.txt, 02_100_13.txt, 02_100_14.txt, 02_100_15.txt, 02_100_16.txt, 02_100_17.txt, 02_100_18.txt, 02_100_19.txt
Case Name Status Exec Time Memory
00_sample_00.txt AC 67 ms 1136 KB
00_sample_01.txt AC 26 ms 1056 KB
00_sample_02.txt AC 25 ms 1164 KB
00_sample_03.txt AC 25 ms 1164 KB
01_rnd_00.txt AC 26 ms 1132 KB
01_rnd_01.txt AC 24 ms 1164 KB
01_rnd_02.txt AC 24 ms 1140 KB
01_rnd_03.txt AC 25 ms 1072 KB
01_rnd_04.txt AC 25 ms 1128 KB
01_rnd_05.txt AC 24 ms 1140 KB
01_rnd_06.txt AC 25 ms 1168 KB
01_rnd_07.txt AC 24 ms 1136 KB
01_rnd_08.txt AC 25 ms 1136 KB
01_rnd_09.txt AC 25 ms 1172 KB
01_rnd_10.txt AC 25 ms 1140 KB
01_rnd_11.txt AC 23 ms 1136 KB
01_rnd_12.txt AC 26 ms 1136 KB
01_rnd_13.txt AC 26 ms 1064 KB
01_rnd_14.txt AC 24 ms 1068 KB
01_rnd_15.txt AC 24 ms 1136 KB
01_rnd_16.txt AC 25 ms 1044 KB
01_rnd_17.txt AC 24 ms 1140 KB
01_rnd_18.txt AC 27 ms 1056 KB
01_rnd_19.txt AC 25 ms 1136 KB
02_100_00.txt AC 23 ms 1136 KB
02_100_01.txt AC 25 ms 1140 KB
02_100_02.txt AC 25 ms 1136 KB
02_100_03.txt AC 27 ms 1148 KB
02_100_04.txt AC 24 ms 1168 KB
02_100_05.txt AC 24 ms 1160 KB
02_100_06.txt AC 25 ms 1140 KB
02_100_07.txt AC 24 ms 1164 KB
02_100_08.txt AC 23 ms 1136 KB
02_100_09.txt AC 25 ms 1064 KB
02_100_10.txt AC 25 ms 1140 KB
02_100_11.txt AC 24 ms 1136 KB
02_100_12.txt AC 25 ms 1132 KB
02_100_13.txt AC 25 ms 1168 KB
02_100_14.txt AC 25 ms 1120 KB
02_100_15.txt AC 24 ms 1168 KB
02_100_16.txt AC 26 ms 1124 KB
02_100_17.txt AC 27 ms 1164 KB
02_100_18.txt AC 27 ms 1136 KB
02_100_19.txt AC 25 ms 1024 KB