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 --- quicksort.hs | 12 ------------ 1 file changed, 12 deletions(-) delete mode 100644 quicksort.hs (limited to 'quicksort.hs') 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 - - -- cgit