generics - F#中的通用字符串到整数转换

Question

我正在 F# 中实现一个简单的字符串到整数转换器的转换；逻辑是，例如从 string 到 uint32:

let inline sToUint s =
    let mutable v = 0u

    for c in s do
        v <- v * 10u + uint32 c - uint32 '0'

    v

现在我想将此实现用于其他整数类型，例如uint64。我怎样才能实现一个通用函数来做到这一点？

谢谢大家，SRTP(如答案中所用)是我在这种情况下所需要的。以下实现与@Brian Berns 的答案略有不同

// (char -> ^a) -> (string -> ^b)
let inline sToNum f =
    let tenTimes v = (v <<< 3) + (v <<< 1)
    fun (s: string) ->
        let mutable v = Unchecked.defaultof<_>
        for c in s do
            v <- (tenTimes v) + f c - f '0'
        v

Answer 1

你可以这样做:

let inline sToNum f =
    let ten = Seq.replicate 10 LanguagePrimitives.GenericOne |> Seq.sum
    fun s ->
        let mutable v = LanguagePrimitives.GenericZero
        for c in s do
            v <- v * ten + f c - f '0'
        v

let sToUint16 = sToNum uint16
let sToUint32 = sToNum uint32
let sToUint64 = sToNum uint64
let sToInt16 = sToNum int16
let sToInt32 = sToNum int32
let sToInt64 = sToNum int64

测试代码:

sToUint16 "123" |> printfn "%A"   // 123us
sToUint32 "123" |> printfn "%A"   // 123u
sToUint64 "123" |> printfn "%A"   // 123UL
sToInt16 "123" |> printfn "%A"    // 123s
sToInt32 "123" |> printfn "%A"    // 123
sToInt64 "123" |> printfn "%A"    // 123L

请注意，sToNum 返回一个 lambda，因此它不必每次都重新计算 10。 (您甚至可以缓存 f '0' 的值，以节省更多时间。)