f# - 顺序 - 随后几年的同一日期

Question

我想创建一个序列，当星期几与函数参数中的日期相同时，它会返回所有年份的结果(例如:自开始日期起，2 月 12 日为星期日的所有年份)。

let myDate (dw:System.DayOfWeek) (start:System.DateTime) =
    seq {
            ...
        }

希望你明白我的意思。

Answer 1

这个怎么样:

let myDate (dw:System.DayOfWeek) (start:System.DateTime) =
    Seq.initInfinite ((+)1) // from 1..∞
    |> Seq.map start.AddYears
    |> Seq.takeWhile (fun x -> x < DateTime.MaxValue)
    |> Seq.filter (fun x -> x.DayOfWeek = dw)
    |> Seq.map (fun x -> x.Year)

myDate System.DayOfWeek.Monday (new DateTime(2001,1,1)) |> Dump

或

let myDate (dw:System.DayOfWeek) (start:System.DateTime) =
    let rec inner i =
        seq {
            let someDay = start.AddYears(i)
            if someDay.DayOfWeek = dw then yield someDay.Year
            yield! inner (i+1)
        }
    inner 1

myDate System.DayOfWeek.Monday (new DateTime(2001,12,1)) |> Dump