Árboles con la misma forma
El árbol binario
· / \ / \ · · / \ / \ 1 4 6 9
se puede representar por
ejArbol = Nodo (Nodo (Hoja 1) (Hoja 4)) (Nodo (Hoja 6) (Hoja 9))
El tipo de los árboles binarios se puede definir por
data Arbol a = Hoja a | Nodo (Arbol a) (Arbol a) deriving (Show, Eq)
Definir la función
mismaForma :: Arbol a -> Arbol b -> Bool
tal que mismaForma t1 t2
se verifica si t1
y t2
tienen la misma estructura. Por ejemplo,
λ> arbol1 = Hoja 5 λ> arbol2 = Hoja 3 λ> mismaForma arbol1 arbol2 True λ> arbol3 = Nodo (Hoja 6) (Hoja 7) λ> mismaForma arbol1 arbol3 False λ> arbol4 = Nodo (Hoja 9) (Hoja 5) λ> mismaForma arbol3 arbol4 True