blob: 21769973feb1541f8c9c4df3ee225afc1d463736 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
|
import Tree
import H55
import H56
symCbalTrees n
| n `mod` 2 == 0 = []
| otherwise = [Branch 'x' x (reverseTree x) | x <- cbalTree (n `div` 2)]
reverseTree Empty = Empty
reverseTree (Branch x l r) = Branch x (reverseTree r) (reverseTree l)
symCbalTrees' = filter symmetric . cbalTree
|
