syntax - OCaml 构造函数解包

Question

是否可以通过将类型的数据绑定到单个值而不是元组来解包类型？

# type foo = Foo of int * string;;
type foo = Foo of int * string
# Foo (3; "bar");;
  Foo (3; "bar");;
Error: The constructor Foo expects 2 argument(s),
       but is applied here to 1 argument(s)
# Foo (3, "bar");;
- : foo = Foo (3, "bar")

# (* Can this possibly work? *)
# let Foo data = Foo (3, "bar");;
  let Foo data = Foo (3, "bar");;
Error: The constructor Foo expects 2 argument(s),
       but is applied here to 1 argument(s)

# (* Here is the version that I know works: *)
# let Foo (d1, d2) = Foo (3, "bar");;
val d1 : int = 3
val d2 : string = "bar"

这在语法上可能吗？

Answer 1

这是 OCaml 语法的一个棘手部分。如果您在显示时定义类型，则其构造函数Foo需要括号中的两个值。它总是必须是两个值，而不是一个元组的单个值。

如果你愿意使用不同的类型，你可以做一些更像你想要的事情：

# type bar = Bar of (int * string);;
type bar = Bar of (int * string)
# let Bar data = Bar (3, "foo");;
val data : int * string = (3, "foo")
# let Bar (d1, d2) = Bar (3, "foo");;
val d1 : int = 3
val d2 : string = "foo"

当以这种方式声明时，构造函数Bar需要一个元组值。这可以更灵活，但也需要更多的内存来表示它，并且访问部分的时间更长。