1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

type Foo<'T>() =
    static let mutable count = 0
    do
        count <- count + 1
    static member NumInstances = count
 
let Main() =
    let i1 = new Foo<int>()
    let i2 = new Foo<int>()
    let i3 = new Foo<int>()
    let s1 = new Foo<string>()
    printfn "int: %d   string: %d   bool: %d" 
                    (Foo<int>.NumInstances)
                    (Foo<string>.NumInstances)
                    (Foo<bool>.NumInstances)
 
Main()