鉴于一棵树:
data Tree a = Empty | Node a [Tree a] deriving Show
我试图获得最大元素,所以我尝试过:
maxElem:: (Ord a) => Tree a -> Int
maxElem Empty = error "maxElem on empty Tree"
maxElem (Node a []) = a
maxElem (Node a x ) = maximum [ maxElem h | h<-x]
但我得到一个错误,我没有找到它.