1 files changed, 10 insertions, 0 deletions
diff --git a/AATree/testTree.hs b/AATree/testTree.hs
new file mode 100644
index 0000000..a9fea3f
--- /dev/null
+++ b/AATree/testTree.hs
@@ -0,0 +1,10 @@
+import AATree
+
+setup = foldl insert Nil [1..20]
+
+main = do
+    let t = setup
+    putStrLn (show $ foldr (:) [] t)
+
+sort [] = []
+sort (x:xs) = sort [ i | i<-xs, i<x]  ++  x:(sort [ i | i<-xs, i>=x])