二进制表示树

Question

我在哈斯克尔很新，我有一个问题。我想列举前例。 [0,1,0,0,1,1,0,1]并将元素放在一个Tree结构中;

data Tree = Leaf Int | Node String (Tree) (Tree)

至今写了下面的代码，但它给出了一个错误。

bdd (x:xs)= if elem x [0..9] then Leaf x else Node x (Tree) (Tree) 

谢谢你的帮助！

Answer 1

你不使用你的函数的递归调用的Tree构造，BDD应返回Tree，至极的是建立与Leaf或Node，但是请注意，节点应与2种树木也应该Leaf建来建或Node，不Tree

bdd :: [Int] -> Tree 
bdd (x:xs)= if elem x [0..9] then Leaf x else Node (show x) (bdd xs) (bdd xs) 

您应该检查你想怎么才能正确地构建树，这仅仅是一个例子。

Answer 2

你的代码试图把x在Leaf，要求它是一个Int，并且还试图推出一个Node，要求它是一个String。当然Int和String是不同的类型，所以这不会编译。另外，Tree是一个类型构造函数，因此您无法使用它。你的代码实际上应该做什么？