Test.fs

module Test

open System
open System.Threading.Tasks
open System.Diagnostics
open BenchmarkDotNet
open BenchmarkDotNet.Running
open BenchmarkDotNet.Attributes

let f input = 
    async {
        let! await = input
        return 1 + await
    }

type Worker() = 
    [<Benchmark>]
    member public x.DoWork() =
        let src = async { return -1 }
        let first = f src
        let mutable output = first

        for i = 1 to 100000 do
            let input = f output
            output <- input

        output
        |> Async.Ignore
        |> Async.RunSynchronously

[<EntryPoint>]
let main argv =
    let summary = BenchmarkRunner.Run<Worker>()
    printfn "%A" summary
    0