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

---
 H57.hs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 H57.hs

(limited to 'H57.hs')

diff --git a/H57.hs b/H57.hs
new file mode 100644
index 0000000..0af879f
--- /dev/null
+++ b/H57.hs
@@ -0,0 +1,11 @@
+import Tree
+
+construct :: Ord a => [a] -> Tree a
+construct = foldl add Empty
+
+add :: Ord a => Tree a -> a -> Tree a
+add Empty x = Branch x Empty Empty
+add t@(Branch a t1 t2) x = case compare x a of 
+    LT -> Branch a (add t1 x) t2
+    GT -> Branch a t1 (add t2 x)
+    EQ -> t
-- 
cgit v1.2.3-70-g09d2