let (>|>) x f = | |
let timer = new System.Diagnostics.Stopwatch() | |
timer.Start() | |
let r = f x | |
printfn "Elapsed Time: %i" timer.ElapsedMilliseconds | |
r | |
[1..1000] | |
>|> List.map (fun x -> [1..x] |> List.sum) | |
>|> List.max | |
>|> fun v -> [1..v] | |
>|> List.averageBy float | |
(* gives following output | |
Elapsed Time: 55 | |
Elapsed Time: 0 | |
Elapsed Time: 60 | |
Elapsed Time: 8 | |
Real: 00:00:00.126, CPU: 00:00:00.124, GC gen0: 6, gen1: 0, gen2: 0 | |
val it : float = 250250.5 | |
*) | |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment