Skip to content

Instantly share code, notes, and snippets.

@otofu-square

otofu-square/FakeQuickSort.hs

Created February 17, 2017 05:43
Show Gist options
  • Save otofu-square/213ef4a9ff9b5234a3362c7fbda71177 to your computer and use it in GitHub Desktop.
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