如何对任意数量的参数进行模式匹配？

Question

是否有一个 OCaml 相当于 Haskell 对任意数量的参数进行模式匹配？例如，我可以有类似的东西吗：（

merge [] lst = lst
merge lst [] = lst
merge l1 @ (n : ns) l2 @ (m : ms) = 
  if n < m then n : merge ns l2 else m : merge l1 ms

该示例取自使用 Objective Caml 开发应用程序：）

谢谢。

Answer 1

您不能像这样匹配多个参数，但可以匹配元组，因此您可以这样做：

let rec merge l1 l2 = match l1, l2 with
| [], lst
| lst, [] -> lst
| (n::ns), (m::ms) -> if n < m then n :: merge ns l2 else m :: merge l1 ms

如果您同意函数将其参数作为元组，您也可以像这样使用 function ：

let rec merge = function
| [], lst
| lst, [] -> lst
| (n::ns as l1), (m::ms as l2) -> if n < m then n :: merge (ns, l2) else m :: merge (l1, ms)