結果
問題 | No.188 HAPPY DAY |
ユーザー | hum_op |
提出日時 | 2016-04-16 10:27:55 |
言語 | F# (F# 4.0) |
結果 |
AC
|
実行時間 | 127 ms / 1,000 ms |
コード長 | 515 bytes |
コンパイル時間 | 4,616 ms |
コンパイル使用メモリ | 163,808 KB |
実行使用メモリ | 25,912 KB |
最終ジャッジ日時 | 2023-08-29 05:11:13 |
合計ジャッジ時間 | 5,449 ms |
ジャッジサーバーID (参考情報) |
judge12 / judge15 |
(要ログイン)
コンパイルメッセージ
Microsoft (R) F# Compiler version 11.0.0.0 for F# 5.0 Copyright (c) Microsoft Corporation. All Rights Reserved.
ソースコード
open System let No188 () = let dt = DateTime.Parse("2015/01/01") let rec CountHappyDay (DT:DateTime) (c:int) = // dateTime count let m = DT.Month let d = DT.Day if m = 12 && d = 31 then c else let l, h = d % 10, (d / 10) % 10 let DT = DT.AddDays(1.) if l + h = m then CountHappyDay DT (c + 1) else CountHappyDay DT c printfn "%d" <| CountHappyDay dt 0 () No188 ()