如何編寫與Array.sum兼容的新類型？

Question

type Foo(...) = 
    ... 

let a = Array.create 10 (new Foo()) 

let sum = Array.sum a 

Answer 1

您需要添加使用由sum功能做計算的幾個成員：

type Foo(value:int) = 
    member x.Value = value 
    // Two members that are needed by 'Array.sum' 
    static member (+) (a:Foo, b:Foo) = Foo(a.Value + b.Value) 
    static member Zero = Foo(0) 
    // Not needed for 'Array.sum', but allows 'Array.average' 
    static member DivideByInt(a:Foo, n:int) = Foo(a.Value/n) 

的sum功能與Zero返回的值開始，然後使用重載增加了Foo值（average然後將結果除以整數）：

let a = Array.init 10 (fun n -> Foo(n)) 
let sum = Array.sum a 
sum.Value // Returns 45 

Answer 2

不可能。

當您想要使用Array（sum等）的任何方法時，您必須使用數組存儲的數組類型。

編輯：我誤解了你的問題。您可能想嘗試實現某些運算符重載，例如+， - 等。也許該類型將支持sum方法。