mmagm · May 15, 2012 09:36
diff --git a/quick-sort.hs b/quick-sort.hs

 qsort :: Ord a => [a] -> [a]
 qsort []     = []
 qsort (x:xs) = qsort lesser ++ [x] ++ qsort greater
    where
        lesser  = filter (< x) xs
        greater = filter (>= x) xs

	qsort :: Ord a => [a] -> [a]
	qsort [] = []
	qsort (x:xs) = qsort lesser ++ [x] ++ qsort greater
	where
	lesser = filter (< x) xs
	greater = filter (>= x) xs