From 63c3043200de6b28a8c192f1b5625940435ea55e Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Sat, 17 Oct 2015 14:20:48 +1100 Subject: Organised source code a bit, added makefile with clean target --- sort/quicksort.hs | 12 ++++++++++++ 1 file changed, 12 insertions(+) create mode 100644 sort/quicksort.hs (limited to 'sort/quicksort.hs') 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 + + -- cgit