blob: c7960f4ff56b59cc4dbde95518961a0ce8a67c66 (
plain)
1
2
3
4
5
6
7
8
9
|
module H56 where
import Tree
mirror :: Tree a -> Tree a -> Bool
mirror Empty Empty = True
mirror a@(Branch _ a1 a2) b@(Branch _ b1 b2) = (mirror a1 b2) && (mirror a2 b1)
mirror _ _ = False
symmetric t = mirror t t
|
