1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25

let inline speak (a: ^a) = 
    let x = (^a : (member speak: unit -> string) (a))
    printfn "It said: %s" x

type Speaker() =
    member this.speak() = "speak"

//pass as argument to inline method 
type Ducks() =
    member inline x.Speak(a) = speak a

//refer to top level let
let a = new Speaker()    
type Ducks2() =
    member inline x.Speak() = speak a

//refer to map in top level
let map = Map.Empty |> Map.add "test" (Speaker())
type Ducks3() =
    member inline x.Speak() = speak map.["test"]

//doesn't work as ctor argument. No way to mark constructor as "inline"?
type Ducks4(a) =
    member inline x.Speak() = speak a