榆树中的“嵌套”联合类型

Question

我正在学习 elm，并试图从 TypeScript 的类型系统中转换我的思维方式。我想知道使用这样的嵌套类型的最佳方法是什么：

type Player = X | O
type Cell = Player | Empty

viewCell: Cell -> string
viewCell cell = 
  case cell of
    X -> "X"
    O -> "O"
    Empty -> " "

编译器抱怨

The first pattern is trying to match `X` values of type:

    Player

But the expression between `case` and `of` is:

    Cell

我可以像这样更改 viewCell，但是我不知道如何获取播放器

viewCell: Cell -> String
viewCell cell = 
  case cell of
    Player -> -- how to get the player ??
    Empty -> " "

问题不在于显示值本身，而是“解构”嵌套联合类型。我想稍后在这样的地方使用它：

check: (List Cell) -> string
check three =
  case three of
    [X, X, X] -> "X won"
    [O, O, O] -> "O won"
    _ -> "still going"

这也给了我来自编译器的类似抱怨

Answer 1

在

type Cell = Player | Empty

Player 不是类型，而是Cell 类型的值。但是，您也可以给它一个参数，在这种情况下，它将是一个值构造函数，当给定参数时返回一个类型为Cell 的值。所以在

type Player = X | O
type Cell = Player Player | Empty

Player Player 中的第一个 Player 本质上是一个函数，当给定 Player 类型的值时，它将返回 Cell 类型的值。或Player -> Cell 打字。

还要注意，类型和构造函数可以具有相同的名称，因为它们位于不同的域中。它们不会冲突，因为它们引用不同的东西，一个引用类型，另一个引用值（构造函数）。但你可以并不一定意味着你应该这样做，因为这可能会让人很困惑。

然后您可以像这样在Cell 和嵌套的Player 上进行模式匹配：

type Player = X | O
type Cell = Player Player | Empty

viewCell: Cell -> String
viewCell cell = 
  case cell of
    Player X -> "X"
    Player O -> "O"
    Empty -> " "

Player 和Empty 这里指的是Cell 的构造函数/变体，而不是类型。同样X 和O 指的是Player 的变体，它们也不是类型。

Answer 2

构造函数和类型唯一可以共享名称的情况是您执行以下操作：

type Tag = Tag String

考虑到你说过

type Cell = Player | Empty

但也可能想要

type Winner = Player | None

那么Player 是什么？是Cell 还是Winner？不能两者兼有。

简单的解决办法是：

type Cell = PlayerCell Player | Empty

type Winner = WinningPlayer Player | None

PlayerCell X 是玩家 X 的单元格。WinningPlayer O 是获胜者。

解构时可以嵌套：

case cell of
  PlayerCell X -> 
    ...
  PlayerCell O -> 
    ...
  Empty -> 
    ...

其实你可以解构更复杂的数据结构：

  case cellRow of 
    [ PlayerCell O, PlayerCell O, PlayerCell O] -> 
      ...