string - F# - 在字符串中的第一个之后删除重复字符

Question

我想要做的是删除字符串中特定给定字符的重复项，但保留第一个字符。 IE:

let myStr = "hi. my .name."

//a function that gets a string and the element to be removed in the string
someFunc myStr "."  

哪里 someFunc返回如下所示的字符串:

"hi. my name"

从字符串中删除重复项很容易，但是有没有办法删除重复项但让第一个重复元素保留在字符串中？

Answer 1

这是一种方法:

let keepFirst c s =
    Seq.mapFold (fun k c' -> (c', k||c<>c'), k&&c<>c') true s
    |> fst
    |> Seq.filter snd
    |> Seq.map fst
    |> Array.ofSeq
    |> System.String

let example = keepFirst '.' "hi. my .name."