Szer

type IBuilderResult = interface end
type ICombinable = inherit IBuilderResult
type INonCombinable = inherit IBuilderResult

type First =
    | Payload of int 
    | Nested of ICombinable
    interface ICombinable
type Second =
    | Payload of string

Szer

type IBuilderResult = interface end
type ICombinable = inherit IBuilderResult
type INonCombinable = inherit IBuilderResult

type First =
    | Payload of int 
    | Nested of ICombinable
    interface ICombinable
type Second =
    | Payload of string

Szer

module Program

open System.Linq
open BenchmarkDotNet.Attributes
open BenchmarkDotNet.Running

[<SimpleJob(launchCount = 3, warmupCount = 3, targetCount = 5)>]
[<GcServer(true)>]
[<MemoryDiagnoser>]
[<MarkdownExporterAttribute.GitHub>]

Szer

module Program

open System.Linq
open BenchmarkDotNet.Attributes
open BenchmarkDotNet.Running

[<SimpleJob(launchCount = 3, warmupCount = 3, targetCount = 5)>]
[<GcServer(true)>]
[<MemoryDiagnoser>]
[<MarkdownExporterAttribute.GitHub>]

Szer

[<AutoOpen>]
module LazyBuilder =
  let inline force(x: Lazy<_>) = x.Force()
  type LazyCont<'a> = LazyCont of (unit -> Lazy<'a>)
  type LazyBuilder() =
    member __.Return x = lazy x
    member __.ReturnFrom (x: Lazy<_>) = x
    member __.Bind(Lazy x, f) = f x
    member __.Delay f = LazyCont f
    member __.Run (LazyCont f) = Lazy.Create (f >> force)

Szer

module BetManager =
    module SQL =
        type BetChoice = abstract member IsD: bool

type Outcome = class end
    
type Item = abstract member Outcomes: Outcome seq 

type Foo = abstract member Items: Item seq

Szer

open System


let (|Is|_|) (x: 'b) : 'a option =
    match box x with
    | :? 'a as a -> Some a
    | _ -> None

let (|Inner|_|) (b: exn): 'a option when 'a :> Exception =
    match box b.InnerException with

Szer

open System
open System.Buffers
open System.Text

let toOneArrayToRuleThemAll(strs: string[]) =
    
    let ascii = System.Text.Encoding.ASCII
    
    let totalBytes = Seq.sumBy String.length strs
    let result = Array.zeroCreate totalBytes

Szer

open System

[<RequireQualifiedAccess>]
module Seq =
    let inline (|Nil|Cons|) (someSeq: seq<_>) =
        
        let mutable enum = Unchecked.defaultof<IEnumerator<_>>
        let mutable shouldDispose = true
        
        try

Szer

Summary

BenchmarkDotNet=v0.12.0, OS=macOS 10.15.3 (19D76) [Darwin 19.3.0]
Intel Core i9-9880H CPU 2.30GHz, 1 CPU, 16 logical and 8 physical cores
.NET Core SDK=3.1.100
  [Host]     : .NET Core 3.1.0 (CoreCLR 4.700.19.56402, CoreFX 4.700.19.56404), X64 RyuJIT DEBUG
  Job-FLMOIG : .NET Core 3.1.0 (CoreCLR 4.700.19.56402, CoreFX 4.700.19.56404), X64 RyuJIT

Server=True  IterationCount=5  LaunchCount=3  
WarmupCount=3