Skip to content

Instantly share code, notes, and snippets.

@rbtbr

rbtbr/Quicksort.hs

Created November 26, 2009 09:24
Show Gist options
  • Save rbtbr/243356 to your computer and use it in GitHub Desktop.
Save rbtbr/243356 to your computer and use it in GitHub Desktop.
Download ZIP
Haskell Quicksort
Raw
Quicksort.hs
qsort :: [Int] -> [Int]
qsort [] = []
qsort (x:xs) = qsort [y | y <- xs, y < x] ++ [x] ++ qsort [y | y <- xs, y >= x]
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment