josejuan/qsort.hs

Created July 18, 2012 10:04

Star (0) You must be signed in to star a gist
Fork (0) You must be signed in to fork a gist

Select an option

Learn more about clone URLs
Clone this repository at <script src="https://gist.github.com/josejuan/3135367.js"></script>
Save josejuan/3135367 to your computer and use it in GitHub Desktop.

Download ZIP

qsort

Raw

qsort (p:xs) = qsort [x | x<-xs, x<p] ++ [p] ++ qsort [x | x<-xs, x>=p]

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment