otofu-square/FakeQuickSort.hs

Created February 17, 2017 05:43

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

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

Download ZIP

Haskell sample code

Raw

FakeQuickSort.hs

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

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