获取字符串中指定位置的字符

Question

如何以 FP 方式获取字符串中指定位置的字符（即没有脏 .[index] hack）？

如果我使用Seq.item，它将迭代所有索引直到n元素，所以每次都让函数运行得非常慢。

在下面的示例中，如果 source 是 string，它将是 O(1) 访问权限，否则它将是 O(n) 访问权限。

let getItem index source =
    match box source with
    | :? string as string -> printfn "String"; string.[index]
    | _ -> printfn "Seq<char>"; Seq.item index source
let stringChar3 = getItem 3 "ABCD"
let seqChar3 = getItem 3 [ for c in ['A'..'D'] do yield c ]

val getItem : index:int -> source:seq<char> -> char
val stringChar3 : char = 'D'
val seqChar3 : char = 'D'

Answer 1

FSharp.Core 中的 String 模块的功能并不是很全面，但是您可以创建自己的模块并包含一些可与类型推断很好地配合使用的可重用函数，然后您只需要编写一次显式类型注释即可可以在别处使用类型推断。

module String =
    let tryGetCharacter index (str : string) =
        if index >= 0 && index < str.Length then
            Some str.[index]
        else
            None

    let getCharacter index (str : string) =
        str.[index]