From 897055910d8bda98b3454b6f66ad697edc4676b3 Mon Sep 17 00:00:00 2001
From: Joe Zhao <ztuowen@gmail.com>
Date: Sun, 5 Apr 2015 21:22:20 +0800
Subject: +57 +58

---
 H58.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 H58.hs

(limited to 'H58.hs')

diff --git a/H58.hs b/H58.hs
new file mode 100644
index 0000000..2176997
--- /dev/null
+++ b/H58.hs
@@ -0,0 +1,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
-- 
cgit v1.2.3-70-g09d2