Cleaning up source a bit

1 files changed, 22 insertions, 0 deletions

diff --git a/sort/merge.hs b/sort/merge.hs
new file mode 100644
index 0000000..71dd999
--- /dev/null
+++ b/sort/merge.hs
@@ -0,0 +1,22 @@
+module Merge (
+    mergeSort
+    ) where
+
+
+
+mergeSort :: Ord a => [a] -> [a]
+mergeSort x | length x <= 1 = x
+mergeSort x =
+    let n = (length x) `div` 2
+        left = mergeSort (take n x)
+        right = mergeSort (drop n x)
+    in merge left right
+
+
+
+merge :: Ord a => [a] -> [a] -> [a]
+merge [] y = y
+merge x [] = x
+merge (x:xs) (y:ys) = if x <= y then x:(merge xs (y:ys)) else y:(merge (x:xs) ys)
+
+