From 3e30658ec5ca3ade4f9295129729127a30b4addf Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Wed, 14 Oct 2015 12:21:23 +1100 Subject: Added bubble, quick, selection, merge, gnome sorting algorithms --- quicksort.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 quicksort.hs (limited to 'quicksort.hs') diff --git a/quicksort.hs b/quicksort.hs new file mode 100644 index 0000000..78330f3 --- /dev/null +++ b/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 + + -- cgit