Máxima distancia en árbol
Los árboles binarios con valores en las hojas y en los nodos se definen por
data Arbol a = H a | N a (Arbol a) (Arbol a) deriving (Eq, Show)
Por ejemplo, el árbol
10
/ \
/ \
8 1
/ \ / \
3 9 2 6
se puede representar por
ejArbol :: Arbol Int ejArbol = N 10 (N 8 (H 3) (H 9)) (N 1 (H 2) (H 6))
La distancia entre un padre y un hijo en el árbol es el valor absoluto de la diferencia de sus valores. Por ejemplo, la distancia de 10 a 8 es 2 y de 1 a 6 es 5.
Definir la función
maximaDistancia :: (Num a, Ord a) => Arbol a -> a
tal que (maximaDistancia a) es la máxima distancia entre un padre y un hijo del árbol a. Por ejemplo,
maximaDistancia ejArbol == 9 maximaDistancia (N 1 (N 8 (H 3) (H 9)) (N 1 (H 2) (H 6))) == 7 maximaDistancia (N 8 (N 8 (H 3) (H 9)) (N 10 (H 2) (H 6))) == 8
Soluciones
data Arbol a = H a | N a (Arbol a) (Arbol a) deriving Show ejArbol :: Arbol Int ejArbol = N 10 (N 8 (H 3) (H 9)) (N 1 (H 2) (H 6)) maximaDistancia :: (Num a, Ord a) => Arbol a -> a maximaDistancia (H _) = 0 maximaDistancia (N x i d) = maximum [abs (x - raiz i) , maximaDistancia i , abs (x - raiz d) , maximaDistancia d] raiz :: Arbol a -> a raiz (H x) = x raiz (N x _ _) = x