и выдать отличия? У структур есть Typeable и Data.
Например, есть data Tree a = Bin (Tree a) (Tree a) | Leaf a deriving (Data, Typeable), и
t1 = Bin (Leaf 1) (Leaf 2), и
t2 = Bin (Leaf 1) (Bin (Leaf 3) (Leaf 4)).
Хочу функцию compare, которая бы выдавала Just (Leaf 2, Bin (Leaf 3) (Leaf 4).
Наверняка ж уже что-то подобное существует... Но нагуглить чего-то не получается
tree-diff, например
Обсуждают сегодня