結果

問題 No.188 HAPPY DAY
ユーザー gigurururugigurururu
提出日時 2015-04-24 00:07:12
言語 Haskell
(8.10.4)
結果
AC  
実行時間 3 ms / 1,000 ms
コード長 183 Byte
コンパイル時間 1,982 ms
使用メモリ 3,944 KB
最終ジャッジ日時 2021-04-05 13:03:18
合計ジャッジ時間 2,681 ms
このコードへのチャレンジ(β)

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
testcase_00 AC 3 ms
3,896 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Loaded package environment from /root/.ghc/x86_64-linux-8.10.4/environments/default
[1 of 1] Compiling Main             ( Main.hs, Main.o )
Linking a.out ...

ソースコード

diff #

import Data.Time

happyday day = m==d`mod`10+d`div`10
  where (y,m,d) = toGregorian day

main =
  print $ length $ filter happyday [fromGregorian 2015 1 1 .. fromGregorian 2015 12 31]
0