summaryrefslogtreecommitdiff
path: root/sort/quicksort.hs
diff options
context:
space:
mode:
authorJed Barber <jjbarber@y7mail.com>2015-10-22 14:05:21 +1100
committerJed Barber <jjbarber@y7mail.com>2015-10-22 14:05:21 +1100
commit0a48ed023ea65d75851ba2a4151100602695a2fd (patch)
treed3e5b41e148475d5d7aeca164a9ebc8bc99becdd /sort/quicksort.hs
parent7dbbe1156c9489151dca6760b1021db426caf84e (diff)
Cleaning up source a bit
Diffstat (limited to 'sort/quicksort.hs')
-rw-r--r--sort/quicksort.hs12
1 files changed, 0 insertions, 12 deletions
diff --git a/sort/quicksort.hs b/sort/quicksort.hs
deleted file mode 100644
index 78330f3..0000000
--- a/sort/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
-
-