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``()