pedrominicz · October 19, 2019 14:49
diff --git a/Quick.hs b/Quick.hs
 module Quick where

 qsort :: Ord a => [a] -> [a]
 qsort [] = []
 qsort (x:xs) = less ++ x:more
  where less = qsort $ filter (< x) xs
        more = qsort $ filter (>= x) xs
	module Quick where

	qsort :: Ord a => [a] -> [a]
	qsort [] = []
	qsort (x:xs) = less ++ x:more
	where less = qsort $ filter (< x) xs
	more = qsort $ filter (>= x) xs