Haskellのバイナリツリーは、Haskellではグラハムハットンの本プログラミングで

Question

を行使する、エラーがこれらの木は、左右のサイド木々の葉の数が複数でない場合には、第10章練習問題3

を解決するためにありましたバランスが取れていると言われています。 もちろん、それ自体はバランスがとれているようです。ツリーが均衡しているかどうかを判断する関数を定義します。 最初に、ツリー内の葉の数を数える関数を定義します。

data Tree = Leaf Int | Node Tree Tree 

leaves :: Tree -> Int 
leaves (Leaf _) = 1 leaves 
leaves (Node l r) = leaves l + leaves r 

balanced :: Tree -> Bool 
(-) :: Int -> Int -> Integer 
balanced (Leaf _) = True 
balanced (Node l r) = abs (leaves l - leaves r) <= 1 
&& balanced l && balanced r 

私はハスケルについて何も知らないが、私の教授は私に割り当てを与えた。ヘルプ

Answer 1

あなたのコードは大体よく見えますが、小さな誤りがあります。

leaves :: Tree -> Int 
leaves (Leaf _) = 1   -- not 1 leaves 
leaves (Node l r) = leaves l + leaves r 

balanced :: Tree -> Bool 
-- don't declare (-) here, it's already declared by the libraries! 
balanced (Leaf _) = True 
balanced (Node l r) = abs (leaves l - leaves r) <= 1 
    && balanced l && balanced r -- indent this more