freeman42x · February 3, 2021 11:29
diff --git a/Main.hs b/Main.hs
 qsort [] = []
 qsort (p:xs) = qsort lesser ++ [p] ++ qsort greater
    where lesser  = filter (< p) xs
          greater = filter (>= p) xs

 -- Made you look at Haskell Ria :p
	qsort [] = []
	qsort (p:xs) = qsort lesser ++ [p] ++ qsort greater
	where lesser = filter (< p) xs
	greater = filter (>= p) xs

	-- Made you look at Haskell Ria :p