groupByBenchmarkDotNet

Benchmark.fs

open BenchmarkDotNet.Running
open BenchmarkDotNet.Attributes
open BenchmarkDotNet.Configs
open BenchmarkDotNet.Diagnostics.Windows

type groupBy () =
    [<Params(10, 100, 10000, 1000000, 10000000)>] 
    member val public count = 0 with get, set
    [<Benchmark>]
    member this.groupByModulus () =
        List.groupBy (fun i -> i % 2) [1..this.count]

    [<Benchmark>]
    member this.groupByOriginalModulus () =
        List.groupBy2 (fun i -> i % 2) [1..this.count]

    [<Benchmark>]
    member this.groupBy () =
        List.groupBy id [1..this.count]

    [<Benchmark>]
    member this.groupByOriginal () =
        List.groupBy2 id [1..this.count]

    [<Benchmark>]
    member this.groupByMixed () =
        List.groupBy (fun i -> i % 2) (List.concat [[1..this.count]; [1..(max 10000  this.count/2)]; [1..(max 10000  this.count/2)]])

    [<Benchmark>]
    member this.groupByOriginalMixed () =
        List.groupBy2 (fun i -> i % 2) (List.concat [[1..this.count]; [1..(max 10000  this.count/2)]; [1..(max 10000  this.count/2)]])

let [<EntryPoint>] main args =
    let config = ManualConfig.Create(DefaultConfig.Instance)
    config.Add(new MemoryDiagnoser())
    config.Add(new InliningDiagnoser())
    BenchmarkRunner.Run<groupBy>(config) |> ignore
    0