Skip to content

Instantly share code, notes, and snippets.

@tcoupland

tcoupland/QuickSort_codeGolf.clj

Created June 13, 2012 16:39
Show Gist options
  • Save tcoupland/2925185 to your computer and use it in GitHub Desktop.
Save tcoupland/2925185 to your computer and use it in GitHub Desktop.
Download ZIP
Quicksort in Code Golf
Raw
QuickSort_codeGolf.clj
(defn f [s p v] (filter #(s % p) v))
(defn s [w]
(if-let [p (first w)]
(if-let [v (rest w)]
(concat (s (f < p v)) [p] (s (f >= p v)))
p)
()
))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment