ツリーの深さを数えるための再帰関数を書く

Question

ツリー データ型を指定すると、ツリーの深さが返される再帰関数を記述する必要があります。

let treeCons x = (\x -> foldl (flip insertTree) Empty x) x 
depth (treeCons []) -> 0 
depth (treeCons [5,4,6,3,7,1]) -> 4 
depth (treeCons [1,2,5,8,9,4,7]) -> 5 
depth (treeCons [5,4,6,3,7,1,2,5,8,9,4,7,8,5,3,4]) -> 6 

私は、次のデータ型を書いて、機能挿入します：しかし

data Tree a = Node a (Tree a) (Tree a) | Empty deriving (Show, Eq) 
insertTree :: (Ord a) => a -> Tree a -> Tree a 
insertTree a Empty = Node a Empty Empty 
insertTree a (Node b Empty Empty) = if (a <= b) then (Node b (Node a Empty Empty) Empty) else (Node b Empty (Node a Empty Empty)) 
insertTree a (Node b left right) = if (a <= b) then (Node b (insertTree a left) right) else (Node b left (insertTree a right)) 

を、私の空の木は、単一のルートノードのツリーが1

期待される出力を返す必要があります 0を返す必要がありますどのように深さの関数を書くのか分からない。私はhaskellで非常に新しく、誰かが私を助けてくれたら分かるだろう。

Answer 1

空の木は深さ0を持っており、ノードが深1プラスその子ノードの最大の深さを持っている：

あなたが行くここ

depth :: Tree a -> Int 
depth Empty = 0 
depth (Node _ l r) = 1 + max (depth l) (depth r) 

Answer 2

、リストを再帰、非常に簡単で、ツリーを約あります同じですが、データ型だけが異なります。問題の木の枝に当たるたびに1を加えます：

tDepth :: Tree a -> Int 
tDepth Empty = 0 
tDepth (Node _ left right) = 1 + max (tLength left) (tLength right)