NessosReallyFast.fsx

#r @"C:\Projects\Streams\src\Streams.Core\bin\Release\Streams.Core.dll"
open Nessos.Streams.Core

let data =
    [|
        let rnd = System.Random().NextDouble >> (*) 1e3
        for x in -10.0 .. 10.0 do
            yield System.DateTime.Now.AddDays (rnd())
    |]

#time;;

for x = 0 to 1000000 do
    data
    |> Stream.ofArray
    |> Stream.sortBy (fun x -> System.DateTime.MaxValue - x)
    |> Stream.tryFind (fun _ -> true)
    |> ignore;;

for x = 0 to 1000000 do
    data
    |> Array.sortBy (fun x -> System.DateTime.MaxValue - x)
    |> Array.tryFind (fun _ -> true)
    |> ignore