如何在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（因爲它不是一個葉）。