結果
問題 | No.188 HAPPY DAY |
ユーザー | chike_plus |
提出日時 | 2019-03-19 13:11:47 |
言語 | F# (F# 4.0) |
結果 |
WA
|
実行時間 | - |
コード長 | 450 bytes |
コンパイル時間 | 5,349 ms |
コンパイル使用メモリ | 160,784 KB |
実行使用メモリ | 23,980 KB |
最終ジャッジ日時 | 2023-10-11 21:04:15 |
合計ジャッジ時間 | 5,899 ms |
ジャッジサーバーID (参考情報) |
judge11 / judge15 |
(要ログイン)
コンパイルメッセージ
Microsoft (R) F# Compiler version 11.0.0.0 for F# 5.0 Copyright (c) Microsoft Corporation. All Rights Reserved.
ソースコード
let ``No.188 HAPPY DAY``() = [ 0..365 ] |> List.countBy (fun day -> "2015/01/01" |> System.DateTime.Parse |> fun d -> d.AddDays( float day ) |> fun d -> if int(d.ToString("MM")) = int(d.ToString("dd").Substring(0,1)) + int(d.ToString("dd").Substring(1,1)) then Some 1 else None ) |> List.head |> fun (h , y) -> string y |> stdout.WriteLine ``No.188 HAPPY DAY``()