Skip to content

Instantly share code, notes, and snippets.

@theimowski

theimowski/dateRange.fsx

Created March 22, 2017 10:57
Show Gist options
  • Save theimowski/20669b99610beb0ecb0aeec724b03fe5 to your computer and use it in GitHub Desktop.
Save theimowski/20669b99610beb0ecb0aeec724b03fe5 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
dateRange.fsx
open System
let dateRange (first:DateTime) count =
[1 .. count]
|> List.map (float >> first.AddDays)
let dateRangeInf (first:DateTime) count =
Seq.initInfinite (float >> first.AddDays)
|> Seq.take count
|> Seq.toList
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment