Eu acho que tenho de fazer a travessia da árvore se encontrar o elemento calcular o caminho por exemplo eu fiz a funçao assim <> procura :: Int-> RTree a -> Maybe [Int]
<>procura _ (R v [])= Nothing
<>procura n (R v l)= Just (n: concat (map(percorre2(n))l))
mas a receber um Int no entanto o tipo "a" diz-me que é mais abrangente, penso que a duvida na classe Eq tem que se fazer uma igualdade e depois calcular o caminho correspondente.
↧
