diff options
Diffstat (limited to 'quicksort.hs')
-rw-r--r-- | quicksort.hs | 12 |
1 files changed, 0 insertions, 12 deletions
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 - - |