f中的过滤日期数组＃

问题描述：

我有一个数组包含日期没有周末（不一定是工作日）。现在我只想每个月只有一个日期，并且只能从某一天开始。如果数组中不存在该日期，则应在结果列表中显示以下现有日期。给定数组：1.2.2010,2.2.2010,5.2.2010,6.2.2010，...，1.3.2010,2.3.2010，...，1.4.2010,4.4。给定数组： 2010f中的过滤日期数组＃

我希望所有二号每个月的日期

结果：2010年2月2日，2010年3月2日，2010年4月4日

我该怎么做，在F＃？请提供一个教育和很好的解决方案，我尝试学习F＃。我知道如何以命令的方式做到这一点:)

谢谢！：d

答

这里是一个可能的解决方案：

// Your input list with dates 
let input = [DateTime.Now] 
// We want 2nd day or later 
let number = 2 

input 
    // First, create group of dates for every Year/Month 
    // (so that all days in specifc month are in a single group) 
    |> Seq.groupBy (fun dt -> dt.Year, dt.Month) 
    |> Seq.map (fun ((y, m), dates) -> 
    // We want only dates that are later (or equal to) this 'limit' 
    let limit = new DateTime(y, m, number) 
    // Remove dates before the limit and then select minimal date 
    dates |> Seq.filter (fun d -> d >= limit) |> Seq.min)

答

这里的另一个（假定排序输入）：

type DateTime = System.DateTime 

let filterDayOrFollowing day (input:DateTime[]) = 
    (input, ([], None)) 
    ||> Array.foldBack (fun date (acc, following:DateTime option) -> 
     if date.Day = day then date::acc, None 
     else match following with 
      | Some f when date.Year = f.Year 
         && date.Month = f.Month 
         && date.Day < day -> f::acc, None 
      | _ -> acc, Some date) 
    |> fst 

let expected = [ DateTime(2010, 2, 2) 
       DateTime(2010, 3, 2) 
       DateTime(2010, 4, 4) ] 

let actual = 
    [| DateTime(2010, 2, 1) 
     DateTime(2010, 2, 2) 
     DateTime(2010, 2, 5) 
     DateTime(2010, 2, 6) 
     DateTime(2010, 3, 1) 
     DateTime(2010, 3, 2) 
     DateTime(2010, 4, 1) 
     DateTime(2010, 4, 4) |] 
    |> filterDayOrFollowing 2 

actual = expected |> printfn "actual = expected: %b"

f中的过滤日期数组＃

相关推荐