Haskell访问自定义数据类型中的字段

Question

对于赋值，我必须为自定义数据类型树实现不同的函数（如下定义）

我想使用错误函数getNodeValue来加入我树的根节点的'Label'（节点值）。 我非常感谢有关如何做到这一点的一些帮助！

data Tree = Node (Label -> Label) Label [Tree]
type Label = Int

testTree = Node (+1) 0 [Node (+1) 1 [], Node (+1) 2 [], Node (+1) 3 []]

getNodeValue :: Tree -> Label
getNodeValue t = {... how does I custom types? ...}

Answer 1

我想你想在这里使用模式匹配来“查看”Tree数据类型。 要获取提供的树的根节点的值，您必须执行以下操作：

getNodeValue :: Tree -> Label
getNodeValue (Node _ l _) = l

Answer 2

如果允许更改类型定义，则还可以使用记录语法自动生成访问器：

data Tree = Node
    { getUpdater :: (Label -> Label)
    , getNodeValue :: Label
    , getSubnodes :: [Tree]
    }