From 0a48ed023ea65d75851ba2a4151100602695a2fd Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Thu, 22 Oct 2015 14:05:21 +1100 Subject: Cleaning up source a bit --- sort/quicksort.hs | 12 ------------ 1 file changed, 12 deletions(-) delete mode 100644 sort/quicksort.hs (limited to 'sort/quicksort.hs') 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 - - -- cgit