Skip to content

Instantly share code, notes, and snippets.

@redacted

redacted/qsort

Created March 10, 2011 17:50
Show Gist options
  • Save redacted/864546 to your computer and use it in GitHub Desktop.
Save redacted/864546 to your computer and use it in GitHub Desktop.
Download ZIP
quicksort
Raw
qsort
(defn qsort [[pivot & xs]]
(when pivot
(let [smaller #(< % pivot)]
(lazy-cat (qsort (filter smaller xs))
[pivot]
(qsort (remove smaller xs))))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment