在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 *))