Haskell O'Reillyの本の問題を取り上げます。私が取り組んでいる問題は
Using the binary tree type that we defined earlier in this chapter,
write a function that will determine the height of the tree. The height
is the largest number of Hops from the root to an Empty. For example, the
tree Empty has height zero; Node "x" Empty Empty has height one;
Node "x" Empty (Node "y" Empty Empty) has height two; and so on.
私はコードをch3.hsというファイルに書き込んでいます。これが私のコードです:
36 data Tree a = Node a (Tree a) (Tree a)
37 | Empty
38 deriving (Show)
39
40 --problem 9:Determine the height of a tree
41 height :: Tree -> Int
42 height (Tree node left right) = if (left == Empty && right == Empty) then 0 else max (height left) (height right)
ターミナルでghciを開き、:load ch3.hsと入力します。これを行うと、次のエラーが発生します。
Prelude> :load ch3.hs
[1 of 1] Compiling Main ( ch3.hs, interpreted )
ch3.hs:42:7: Not in scope: data constructor `Tree'
Failed, modules loaded: none.
高さメソッドの上の行で定義したため、ツリーデータコンストラクターがそこにあるはずです。しかし、ファイルをロードしようとすると、データコンストラクターがスコープ内にないというメッセージが表示されます。このエラーが発生する理由の説明と説明に感謝します。おかげで、ケビン
あなたのコードはいくつかのレベルで間違っています。代数的データ型を誤解しているようです。
Tree
は常に特定の型のTree
です。これは宣言でa
を呼び出したものであり、どの型でもかまいません(制約しません)。したがって、heigth
は、何らかのタイプのTree
を取得する必要があります-_Tree SomeType
_も必要です。 SomeType
には最も一般的な型、つまりa
のような型変数を使用できます。Node a (Tree a) (Tree a)
またはEmpty
を照合対象として指定します。したがって、height (Node ...)
はNode
と一致し、height (Empty)
はEmpty
と一致し、height (Tree ...)
はTree
、しかしありません。それはあなたが受け取るエラーメッセージです。==
_を介して)することは決してありません。 deriving (Show, Eq)
と書けば実際に機能します。ただし、パターンマッチングを使用して、Empty
に達したかどうかを判断する必要があります。Node
ではなくEmpty
のみが一致します-Empty
の句を追加する必要があります。height
の最大値以外を返すことはありません。これにより、子のheight
の0または最大値のみが無限に返されます。各レベルで結果をインクリメントする必要があります;)Tree
ADTのconstructors、つまりcasesに対してパターンマッチします。 Tree
は、それらすべてを合計したものです。
次のようにはるかに簡単ですand何よりも正しい:
height Empty = 0
height (Node _ l r) = 1 + max (height l) (height r)