Organised source code a bit, added makefile with clean target

1 files changed, 12 insertions, 0 deletions

diff --git a/sort/quicksort.hs b/sort/quicksort.hs
new file mode 100644
index 0000000..78330f3
--- /dev/null
+++ b/sort/quicksort.hs
@@ -0,0 +1,12 @@
+
+
+
+quickSort :: Ord a => [a] -> [a]
+quickSort [] = []
+quickSort (x:xs) =
+    let less = [ a | a <- xs, a < x ]
+        equal = [ b | b <- (x:xs), b == x ]
+        greater = [ c | c <- xs, c > x ]
+    in quickSort less ++ equal ++ quickSort greater
+
+