DouKaku?beta

Comment detail

指定された日の存在する週 (Nested Flatten) 
1
2
3
4
5
6
7
8
open System;;

let getWeekIncluding (year,month,day) =
    let date = new DateTime( year, month, day ) in
    let rec getting (dt:DateTime) =
        if Enum.to_int dt.DayOfWeek = 6 then []
        else (dt.ToString() ^ " : " ^ dt.DayOfWeek.ToString())::(getting (dt.AddDays(float 1))) in
    String.concat "\n" (getting (date.AddDays( float (1 - Enum.to_int date.DayOfWeek))));;

Index

Feed

Other

Link

Pathtraq

loading...
Creative Commons License このサイトの内容は、 クリエイティブ・コモンズ・ライセンスの下でライセンスされています。 [詳細]