結果
問題 | No.188 HAPPY DAY |
ユーザー | 3405691582 |
提出日時 | 2017-01-18 19:19:01 |
言語 | Haskell (9.8.2) |
結果 |
CE
(最新)
AC
(最初)
|
実行時間 | - |
コード長 | 316 bytes |
コンパイル時間 | 2,922 ms |
コンパイル使用メモリ | 148,096 KB |
最終ジャッジ日時 | 2024-06-09 21:44:29 |
合計ジャッジ時間 | 3,288 ms |
ジャッジサーバーID (参考情報) |
judge4 / judge5 |
(要ログイン)
コンパイルエラー時のメッセージ・ソースコードは、提出者また管理者しか表示できないようにしております。(リジャッジ後のコンパイルエラーは公開されます)
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
ただし、clay言語の場合は開発者のデバッグのため、公開されます。
コンパイルメッセージ
Loaded package environment from /home/judge/.ghc/x86_64-linux-9.8.2/environments/default [1 of 2] Compiling Main ( Main.hs, Main.o ) Main.hs:1:1: error: [GHC-87110] Could not load module ‘Data.Time’. It is a member of the hidden package ‘time-1.12.2’. Use -v to see a list of the files searched for. | 1 | import Data.Time | ^^^^^^^^^^^^^^^^
ソースコード
import Data.Time first2015 = fromGregorian 2015 1 1 first2016 = fromGregorian 2016 1 1 isHappyDay :: Day -> Bool isHappyDay day = m == div d 10 + mod d 10 where (_,m,d) = toGregorian day main = putStrLn . show $ length $ filter isHappyDay $ map (flip addDays first2015) $ [0..(diffDays first2016 first2015 - 1)]