f# - 子串索引

Question

我是 F# 的新手。我编写了一个函数，该函数返回目标中子字符串匹配项的索引数组，它类似于我在 C# 中的编写方式。

有没有更实用的方法来解决这个问题，是否可以在不使用任何可变变量的情况下解决？

let SubStringIndices (haystack:string) (needle:string) =
    let mutable indices = System.Collections.Generic.List<int>()
    let mutable index = haystack.IndexOf(needle)
    while index >= 0 do
        indices.Add(index)
        index <- haystack.IndexOf(needle, index+1)
    indices.ToArray()

printfn "%A" (SubStringIndices  "abaabababaaab" "ab")
// prints [|0; 3; 5; 7; 11|]

我不是在寻找在每个索引处检查子字符串匹配的解决方案。

Answer 1

有点像

let SubStringIndices (haystack:string) (needle:string) = 
    -1 |> Seq.unfold (fun n -> 
        let idx = haystack.IndexOf(needle, n + 1)
        if idx <> -1 then Some(idx, idx) else None        
        )