提出 #172192

ソースコード 拡げる


main = do
  year <- getLine
  month <- getLine
  day <- getLine

  
  print $ resolve  (readI year) (readI month) (readI day)


resolve :: Int -> Int -> Int -> Int
resolve year month day
  | (1 <= year && year <= 2014 ) && (1 <= month && month <= 12) && ( 1<= day && day <= 31) =
    if month < 3
        then solve (year-1) (month+12) day
        else solve year month day
  |otherwise = 0

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

    
readI =    read :: String -> Int

提出情報

提出日時
問題 A - 経過日数
ユーザ keizo_bookman
言語 Haskell (GHC 7.4.1)
得点 0
コード長 603 Byte
結果 WA
実行時間 168 ms
メモリ 1292 KiB

ジャッジ結果

セット名 Sample All
得点 / 配点 0 / 0 0 / 100
結果
WA × 4
WA × 24
セット名 テストケース
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
ケース名 結果 実行時間 メモリ
subtask0_sample01.txt WA 168 ms 1112 KiB
subtask0_sample02.txt WA 32 ms 1176 KiB
subtask0_sample03.txt WA 36 ms 1112 KiB
subtask0_sample04.txt WA 31 ms 1176 KiB
subtask1_01.txt WA 30 ms 1184 KiB
subtask1_02.txt WA 31 ms 1188 KiB
subtask1_03.txt WA 30 ms 1180 KiB
subtask1_04.txt WA 32 ms 1160 KiB
subtask1_05.txt WA 30 ms 1116 KiB
subtask1_06.txt WA 28 ms 1272 KiB
subtask1_07.txt WA 30 ms 1176 KiB
subtask1_08.txt WA 31 ms 1224 KiB
subtask1_09.txt WA 29 ms 1184 KiB
subtask1_10.txt WA 28 ms 1184 KiB
subtask1_11.txt WA 36 ms 1176 KiB
subtask1_12.txt WA 31 ms 1116 KiB
subtask1_13.txt WA 31 ms 1112 KiB
subtask1_14.txt WA 33 ms 1244 KiB
subtask1_15.txt WA 33 ms 1176 KiB
subtask1_16.txt WA 29 ms 1172 KiB
subtask1_17.txt WA 34 ms 1168 KiB
subtask1_18.txt WA 29 ms 1292 KiB
subtask1_19.txt WA 31 ms 1152 KiB
subtask1_20.txt WA 31 ms 1184 KiB