如何在 OCaml 中删除字符串的所有字符

Question

有没有一种简单的方法可以删除 OCaml 字符串中所有出现的字符？

我想我可以使用这个干净的功能：

let clean = 
  function 
  | ' ' | '[' | ']' | '\n' | '>' -> '' 
  | x -> x 
in 

但是你不能在 OCaml 中使用''。

所以我提出了这个解决方案：

let delete = 
  function 
    | ' ' | '[' | ']' | '\n' | '>' -> true 
    | _ -> false 
  in 
  let char_list, size =
    String.fold_left 
      (fun (acc, count) c -> 
        if delete c then acc, count 
        else c::acc, count+1) ([],0) path_string 
  in
  let char_list = ref @@ List.rev char_list in 
  let aux() = 
    match !char_list with 
    | [] -> failwith "unexpected"
    | x :: xs -> char_list := xs; x
  in
  let cleaned_string = String.init size (fun _ -> aux()) in 
  cleaned_string

但它很大 - 使用 python 它只是 s.replace('>','') 来抑制一个 - 并且仅适用于我的安装不支持的 OCaml 4.13。

Answer 1

如果你想动态构建一个字符串，你应该使用一个缓冲区

let remove_chars erase s =
  let b = Buffer.create 10 in
  String.iter (fun c -> if not (erase c) then Buffer.add_char b c);
  Buffer.contents b

（构建字符列表效率极低。）

Answer 2

最接近 python 的可能是Str.global_replace:

Str.(global_replace (regexp ">") "" s)

或一次执行多个字符，您可以执行以下操作：

Str.(global_replace (regexp "[youChar1yourChar2yourChar3]") "" s)

所以在你的情况下：

Str.(global_replace (regexp "[][> \n]") "" s)