拆分OCaml中的字符串列表

Question

我的列表为let a = ["q0,x";"q1,y"];，类型为string list。

我想将其设为[("q0","x");("q1","y")];，这是(string * string)元组的列表。

我该怎么做？

Answer 1

您可以使用模块Str和函数split：

let split = 
   List.map (fun str ->
      match Str.split (Str.regexp ",") str with
        | a :: b :: _ -> a, b
        | _ -> assert false (* should not happen *))