Quicksort using a variadic function

Posted on Mon 05 Oct 2009 by triyo | lang: clojure | loc: 8 | rev: 3

A quicksort algorithm http://en.wi... using a variadic function http://en.wi... implemented in Clojure

2 votes

(defn qsort
  "A quicksort algorithm using a variadic function:
   http://en.wikipedia.org/wiki/Variadic_function" 
  ([] []) 
  ([x & xs] 
     (concat (apply qsort (filter #(< % x) xs)) 
	     (cons x (apply qsort (filter #(>= % x) xs))))))

(time (println "sort-result: " (qsort 1 40 22 -2 110 9)))

algorithms clojure sorting Fork Run Snippet!

Revisions:

[head] rev 3 - Mon 12 Oct 2009 13:12
rev 2 - Mon 12 Oct 2009 13:12 | diff
rev 1 - Mon 05 Oct 2009 17:04 | diff

xpojure

Quicksort using a variadic function

Languages

Tags