Ocaml 模式匹配

Question

我对 OCaml 和模式匹配还很陌生，所以我很难弄清楚这一点。

假设我有一个元组列表。我想要做的是根据元组中的第一个元素将参数与其中一个元组匹配，并且在这样做时，我想返回元组的第二个元素。例如，我想做这样的事情：

let list = [ "a", 1; "b", 2; "c", 3; "d", 4 ] ;;
let map_left_to_right e rules = match e with 
    | first -> second 
    | first -> second 
    | first -> second

如果我使用map_left_to_right“b”列表，我想得到2作为回报。 因此，我想列出规则列表中的所有第一个元素，并将参数与这些元素之一进行匹配，但我不知道该怎么做。我想我需要使用 List.iter 或 List.for_all 来做这样的事情。任何帮助将不胜感激。谢谢！

Answer 1

模式匹配适用于您想要匹配固定模式列表的情况。在您当前的情况下，惯用的做法是 List.assoc：

let map_left_to_right e rules default = 
  try List.assoc e rules with Not_found -> default

当找不到元素时，您需要提供默认值。此处，map_left_to_right "b" list 0 将按预期返回 2，而 map_left_to_right "z" list 0 将返回 0。

Answer 2

匹配仅匹配固定模式，而不匹配变量。在这种情况下，匹配的适当使用如下所示：（注意包含“默认”，就像在其他答案中一样）

let list = [ "a", 1; "b", 2; "c", 3; "d", 4 ]
let rec map_left_to_right e rules default = match rules with 
    [] -> default (* No rules left to match *)
  | (first,second)::rest -> (* At least one rule remaining, which we'll put into first,second *)
      if first = e
      then second
      else map_left_to_right e rest default

如果我们想在没有找到任何内容的情况下返回 0，那么将这样调用：

map_left_to_right "b" list 0

All of这在功能上相当于另一个答案中的代码，实际上我建议使用该代码，因为它更小并且可以更好地利用现有库，但我认为我会给出这段代码，因为它更好地说明了模式匹配实际上是如何进行的应用于本例。