blob: 67e2bbbe0b3105fc3d3d0042d3a8776767bb60a7 (
plain)
1
2
3
4
5
6
7
|
module H55 where
import Tree
cbalTree :: Int -> [Tree Char]
cbalTree 0 = [Empty]
cbalTree n = let (q, r) = (n-1) `quotRem` 2 in
[ Branch 'x' x y | i <- [q .. q + r], x <- cbalTree i, y <- cbalTree $ n - i - 1]
|
