如何在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

現在，您錯過了重要的一步，即將葉子添加到列表中，這就是為什么您總是得到一個空列表的原因。 [] ++ treeLeaves t1 ++ treeLeaves t2此[] ++ 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

正如Igor所說，您可以在最后一行使用_而不是v ，因為您沒有在該節點中使用該元素（因為它不是葉子）。