Skip to content

Instantly share code, notes, and snippets.

@freeman42x

freeman42x/Main.hs

Created February 3, 2021 11:29
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save freeman42x/46f2a396fe3ec787b37907864b0b90fa to your computer and use it in GitHub Desktop.
Save freeman42x/46f2a396fe3ec787b37907864b0b90fa to your computer and use it in GitHub Desktop.
Download ZIP
Haskell inefficient but readable QuickSort
Raw
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
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment