如何在Haskell

Question

在列表树的落叶归我到目前为止这样的代码：

data BinaryTree a = Null | Node a (BinaryTree a) (BinaryTree a) 

treeLeaves :: BinaryTree a -> [a] 
treeLeaves tree = case tree of 
    Null   -> [] 
    Node v t1 t2 -> [] ++ treeLeaves t1 ++ treeLeaves t2 

我不知道我做错了。它输出一个空的列表。

Answer 1

现在你错过了将叶子添加到列表中的重要步骤，这就是为什么你总是得到一个空列表。当Zeta评论时，[] ++ treeLeaves t1 ++ treeLeaves t2最终将落入Null分支并成为[] ++ [] ++ ... ++ []。

当BinaryTree是Node v Null Null时，你知道你已经到了叶。所以，你需要编写这种情况下，一个分支太：

treeLeaves :: BinaryTree a -> [a] 
treeLeaves tree = case tree of 
    Null    -> [] 
    Node v Null Null -> v:[] 
    Node _ t1 t2  -> treeLeaves t1 ++ treeLeaves t2 

正如伊戈尔评论，你可以在最后一行，因为你没有使用元素在该节点使用_代替v（因为它不是一个叶）。