Implementation of time interval problem in F# with error handling

timeInterval.fs

// Coded online at https://repl.it/@t1m0thyj/F-Scratchpad-1

open System

let dateStr = "1/1/2000,2/29/2000,2/29/2004,2/29/2008,2/29/2012,2/29/2016,3/14/15 9:26:53"

let getDayDiff (date1:string, date2:string) =
    let couldParse, startDate = DateTime.TryParse date1
    if (not couldParse) then failwithf "Date '%s' is not valid" date1
    let couldParse, endDate = DateTime.TryParse date2
    if (not couldParse) then failwithf "Date '%s' is not valid" date2
    abs (endDate - startDate).Days

let timestamps = dateStr.Split([|','|])
if (timestamps.Length < 2) then failwith "You must enter at least 2 dates"

let intervals =
    timestamps
    |> Seq.pairwise
    |> Seq.map getDayDiff

Seq.iter (printfn "%A") intervals

Awesome!