summaryrefslogtreecommitdiff
path: root/quicksort.hs
diff options
context:
space:
mode:
Diffstat (limited to 'quicksort.hs')
-rw-r--r--quicksort.hs12
1 files changed, 0 insertions, 12 deletions
diff --git a/quicksort.hs b/quicksort.hs
deleted file mode 100644
index 78330f3..0000000
--- a/quicksort.hs
+++ /dev/null
@@ -1,12 +0,0 @@
-
-
-
-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
-
-