From ef5f19da8865b53f6edf68041a8e270a28031955 Mon Sep 17 00:00:00 2001
From: Joe Zhao <ztuowen@gmail.com>
Date: Sun, 5 Apr 2015 15:33:17 +0800
Subject: +H55 +H56 +Tree

---
 H55.hs | 6 ++++++
 1 file changed, 6 insertions(+)
 create mode 100644 H55.hs

(limited to 'H55.hs')

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]
-- 
cgit v1.2.3-70-g09d2