+H55 +H56 +Tree

1 files changed, 6 insertions, 0 deletions

diff --git a/H55.hs b/H55.hs
new file mode 100644
index 0000000..a6e6a95
--- /dev/null
+++ b/H55.hs
@@ -0,0 +1,6 @@
+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]