转换为文本运行时提供的类型

换句话说,如果我想要一个完全泛型的函数,我如何确保在数值类型之间进行编译/运行时转换。

例如:

let f x = x + 1 // int -> int

自动假定 int 因为 1 .

我目前的做法是:

let gettype (x:'T) = typeof<'T>  // 'T -> Type
let one x = Convert.ChangeType (1, (gettype x))  // 'a -> obj
let f x = x + one(x) // obj -> obj

但这不起作用 + 没有为定义 obj s公司