diff options
| author | Joe Zhao <ztuowen@gmail.com> | 2016-01-28 09:56:24 -0700 |
|---|---|---|
| committer | Joe Zhao <ztuowen@gmail.com> | 2016-01-28 09:56:24 -0700 |
| commit | fffef3e49db9f65cae3f0f99703ba01ae0d008bf (patch) | |
| tree | faee07ed11b39a1fb5f80623354c5dc20e510bb2 /AATree/testTree.hs | |
| download | haskbox-fffef3e49db9f65cae3f0f99703ba01ae0d008bf.tar.gz haskbox-fffef3e49db9f65cae3f0f99703ba01ae0d008bf.tar.bz2 haskbox-fffef3e49db9f65cae3f0f99703ba01ae0d008bf.zip | |
init
Diffstat (limited to 'AATree/testTree.hs')
| -rw-r--r-- | AATree/testTree.hs | 10 |
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]) |