Submission #7434


Source Code Expand

import Text.Printf
main=getLine>>=p.head.filter f.cal.map read.words.map rep
rep '/'=' '
rep c = c
cal [y,12,d] = [(y,12,d')|d'<-[d..days y!!11]] ++ cal [y+1,1,1]
cal [y,m,d] = [(y,m,d')|d'<-[d..days y!!(m-1)]] ++ cal [y,m+1,1]
p (y,m,d) = printf "%04d/%02d/%02d\n" y m d
f (y,m,d) = 0 == mod y (m*d)
isLeap n | 0 == mod n 400 = True
         | 0 == mod n 100 = False
         | 0 == mod n 4 = True
         | otherwise = False                                                                                               
days y = [31, if isLeap y then 29 else 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]

Submission Info

Submission Time
Task B - 割り切れる日付
User notogawa
Language Haskell (GHC 7.4.1)
Score 100
Code Size 617 Byte
Status AC
Exec Time 67 ms
Memory 1468 KB

Judge Result

Set Name All
Score / Max Score 100 / 100
Status
AC × 124
Set Name Test Cases
All 00_retmax.txt, 00_retmin.txt, 00_sample_00.txt, 00_sample_01.txt, 00_sample_02.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_last_01_0_0.txt, 02_last_01_0_1.txt, 02_last_01_1_0.txt, 02_last_01_1_1.txt, 02_last_01_2_0.txt, 02_last_01_2_1.txt, 02_last_01_3_0.txt, 02_last_01_3_1.txt, 02_last_02_0_0.txt, 02_last_02_0_1.txt, 02_last_02_1_0.txt, 02_last_02_1_1.txt, 02_last_02_2_0.txt, 02_last_02_2_1.txt, 02_last_02_3_0.txt, 02_last_02_3_1.txt, 02_last_03_0_0.txt, 02_last_03_0_1.txt, 02_last_03_1_0.txt, 02_last_03_1_1.txt, 02_last_03_2_0.txt, 02_last_03_2_1.txt, 02_last_03_3_0.txt, 02_last_03_3_1.txt, 02_last_04_0_0.txt, 02_last_04_0_1.txt, 02_last_04_1_0.txt, 02_last_04_1_1.txt, 02_last_04_2_0.txt, 02_last_04_2_1.txt, 02_last_04_3_0.txt, 02_last_04_3_1.txt, 02_last_05_0_0.txt, 02_last_05_0_1.txt, 02_last_05_1_0.txt, 02_last_05_1_1.txt, 02_last_05_2_0.txt, 02_last_05_2_1.txt, 02_last_05_3_0.txt, 02_last_05_3_1.txt, 02_last_06_0_0.txt, 02_last_06_0_1.txt, 02_last_06_1_0.txt, 02_last_06_1_1.txt, 02_last_06_2_0.txt, 02_last_06_2_1.txt, 02_last_06_3_0.txt, 02_last_06_3_1.txt, 02_last_07_0_0.txt, 02_last_07_0_1.txt, 02_last_07_1_0.txt, 02_last_07_1_1.txt, 02_last_07_2_0.txt, 02_last_07_2_1.txt, 02_last_07_3_0.txt, 02_last_07_3_1.txt, 02_last_08_0_0.txt, 02_last_08_0_1.txt, 02_last_08_1_0.txt, 02_last_08_1_1.txt, 02_last_08_2_0.txt, 02_last_08_2_1.txt, 02_last_08_3_0.txt, 02_last_08_3_1.txt, 02_last_09_0_0.txt, 02_last_09_0_1.txt, 02_last_09_1_0.txt, 02_last_09_1_1.txt, 02_last_09_2_0.txt, 02_last_09_2_1.txt, 02_last_09_3_0.txt, 02_last_09_3_1.txt, 02_last_10_0_0.txt, 02_last_10_0_1.txt, 02_last_10_1_0.txt, 02_last_10_1_1.txt, 02_last_10_2_0.txt, 02_last_10_2_1.txt, 02_last_10_3_0.txt, 02_last_10_3_1.txt, 02_last_11_0_0.txt, 02_last_11_0_1.txt, 02_last_11_1_0.txt, 02_last_11_1_1.txt, 02_last_11_2_0.txt, 02_last_11_2_1.txt, 02_last_11_3_0.txt, 02_last_11_3_1.txt, 02_last_12_0_0.txt, 02_last_12_0_1.txt, 02_last_12_1_0.txt, 02_last_12_1_1.txt, 02_last_12_2_0.txt, 02_last_12_2_1.txt, 02_last_12_3_0.txt, 02_last_12_3_1.txt, 03_special_01.txt, 03_special_02.txt, 03_special_03.txt
Case Name Status Exec Time Memory
00_retmax.txt AC 67 ms 1332 KB
00_retmin.txt AC 26 ms 1424 KB
00_sample_00.txt AC 26 ms 1344 KB
00_sample_01.txt AC 25 ms 1340 KB
00_sample_02.txt AC 27 ms 1332 KB
01_rnd_00.txt AC 26 ms 1428 KB
01_rnd_01.txt AC 27 ms 1340 KB
01_rnd_02.txt AC 24 ms 1424 KB
01_rnd_03.txt AC 25 ms 1336 KB
01_rnd_04.txt AC 24 ms 1336 KB
01_rnd_05.txt AC 26 ms 1336 KB
01_rnd_06.txt AC 28 ms 1336 KB
01_rnd_07.txt AC 24 ms 1340 KB
01_rnd_08.txt AC 25 ms 1336 KB
01_rnd_09.txt AC 26 ms 1424 KB
01_rnd_10.txt AC 25 ms 1336 KB
01_rnd_11.txt AC 24 ms 1368 KB
01_rnd_12.txt AC 35 ms 1468 KB
01_rnd_13.txt AC 24 ms 1428 KB
01_rnd_14.txt AC 24 ms 1424 KB
01_rnd_15.txt AC 26 ms 1340 KB
01_rnd_16.txt AC 27 ms 1424 KB
01_rnd_17.txt AC 27 ms 1332 KB
01_rnd_18.txt AC 32 ms 1328 KB
01_rnd_19.txt AC 28 ms 1332 KB
02_last_01_0_0.txt AC 25 ms 1332 KB
02_last_01_0_1.txt AC 26 ms 1424 KB
02_last_01_1_0.txt AC 29 ms 1244 KB
02_last_01_1_1.txt AC 25 ms 1336 KB
02_last_01_2_0.txt AC 28 ms 1336 KB
02_last_01_2_1.txt AC 31 ms 1336 KB
02_last_01_3_0.txt AC 32 ms 1336 KB
02_last_01_3_1.txt AC 29 ms 1340 KB
02_last_02_0_0.txt AC 26 ms 1316 KB
02_last_02_0_1.txt AC 26 ms 1336 KB
02_last_02_1_0.txt AC 28 ms 1344 KB
02_last_02_1_1.txt AC 28 ms 1332 KB
02_last_02_2_0.txt AC 26 ms 1340 KB
02_last_02_2_1.txt AC 26 ms 1404 KB
02_last_02_3_0.txt AC 26 ms 1268 KB
02_last_02_3_1.txt AC 28 ms 1360 KB
02_last_03_0_0.txt AC 29 ms 1336 KB
02_last_03_0_1.txt AC 29 ms 1332 KB
02_last_03_1_0.txt AC 28 ms 1336 KB
02_last_03_1_1.txt AC 26 ms 1420 KB
02_last_03_2_0.txt AC 28 ms 1428 KB
02_last_03_2_1.txt AC 27 ms 1424 KB
02_last_03_3_0.txt AC 24 ms 1340 KB
02_last_03_3_1.txt AC 24 ms 1336 KB
02_last_04_0_0.txt AC 27 ms 1316 KB
02_last_04_0_1.txt AC 24 ms 1428 KB
02_last_04_1_0.txt AC 30 ms 1340 KB
02_last_04_1_1.txt AC 28 ms 1328 KB
02_last_04_2_0.txt AC 26 ms 1424 KB
02_last_04_2_1.txt AC 26 ms 1356 KB
02_last_04_3_0.txt AC 27 ms 1340 KB
02_last_04_3_1.txt AC 25 ms 1340 KB
02_last_05_0_0.txt AC 29 ms 1332 KB
02_last_05_0_1.txt AC 28 ms 1428 KB
02_last_05_1_0.txt AC 29 ms 1340 KB
02_last_05_1_1.txt AC 25 ms 1336 KB
02_last_05_2_0.txt AC 26 ms 1424 KB
02_last_05_2_1.txt AC 25 ms 1332 KB
02_last_05_3_0.txt AC 25 ms 1268 KB
02_last_05_3_1.txt AC 27 ms 1424 KB
02_last_06_0_0.txt AC 25 ms 1364 KB
02_last_06_0_1.txt AC 24 ms 1424 KB
02_last_06_1_0.txt AC 25 ms 1328 KB
02_last_06_1_1.txt AC 25 ms 1416 KB
02_last_06_2_0.txt AC 25 ms 1332 KB
02_last_06_2_1.txt AC 28 ms 1452 KB
02_last_06_3_0.txt AC 27 ms 1340 KB
02_last_06_3_1.txt AC 26 ms 1372 KB
02_last_07_0_0.txt AC 28 ms 1336 KB
02_last_07_0_1.txt AC 26 ms 1332 KB
02_last_07_1_0.txt AC 25 ms 1424 KB
02_last_07_1_1.txt AC 29 ms 1276 KB
02_last_07_2_0.txt AC 25 ms 1420 KB
02_last_07_2_1.txt AC 24 ms 1400 KB
02_last_07_3_0.txt AC 27 ms 1336 KB
02_last_07_3_1.txt AC 25 ms 1340 KB
02_last_08_0_0.txt AC 30 ms 1344 KB
02_last_08_0_1.txt AC 27 ms 1336 KB
02_last_08_1_0.txt AC 26 ms 1340 KB
02_last_08_1_1.txt AC 30 ms 1340 KB
02_last_08_2_0.txt AC 26 ms 1420 KB
02_last_08_2_1.txt AC 25 ms 1448 KB
02_last_08_3_0.txt AC 31 ms 1336 KB
02_last_08_3_1.txt AC 30 ms 1344 KB
02_last_09_0_0.txt AC 26 ms 1260 KB
02_last_09_0_1.txt AC 26 ms 1272 KB
02_last_09_1_0.txt AC 27 ms 1428 KB
02_last_09_1_1.txt AC 30 ms 1344 KB
02_last_09_2_0.txt AC 28 ms 1340 KB
02_last_09_2_1.txt AC 29 ms 1268 KB
02_last_09_3_0.txt AC 28 ms 1344 KB
02_last_09_3_1.txt AC 26 ms 1428 KB
02_last_10_0_0.txt AC 28 ms 1332 KB
02_last_10_0_1.txt AC 29 ms 1336 KB
02_last_10_1_0.txt AC 28 ms 1336 KB
02_last_10_1_1.txt AC 26 ms 1424 KB
02_last_10_2_0.txt AC 28 ms 1420 KB
02_last_10_2_1.txt AC 28 ms 1372 KB
02_last_10_3_0.txt AC 32 ms 1336 KB
02_last_10_3_1.txt AC 29 ms 1372 KB
02_last_11_0_0.txt AC 30 ms 1348 KB
02_last_11_0_1.txt AC 26 ms 1372 KB
02_last_11_1_0.txt AC 28 ms 1420 KB
02_last_11_1_1.txt AC 26 ms 1336 KB
02_last_11_2_0.txt AC 26 ms 1368 KB
02_last_11_2_1.txt AC 26 ms 1424 KB
02_last_11_3_0.txt AC 26 ms 1336 KB
02_last_11_3_1.txt AC 26 ms 1432 KB
02_last_12_0_0.txt AC 26 ms 1428 KB
02_last_12_0_1.txt AC 26 ms 1332 KB
02_last_12_1_0.txt AC 26 ms 1332 KB
02_last_12_1_1.txt AC 29 ms 1340 KB
02_last_12_2_0.txt AC 26 ms 1336 KB
02_last_12_2_1.txt AC 32 ms 1272 KB
02_last_12_3_0.txt AC 29 ms 1332 KB
02_last_12_3_1.txt AC 30 ms 1340 KB
03_special_01.txt AC 30 ms 1332 KB
03_special_02.txt AC 35 ms 1336 KB
03_special_03.txt AC 26 ms 1336 KB