Allen mefesto

mefesto / qsort.clj

Created January 3, 2011 05:01

Quicksort implementation courtesy of Introduction to Algorithms (3rd Ed.)

	(ns mefesto.qsort)

	(set! warn-on-reflection true)

	(defn- aswap! [^doubles vals ^ints idxs ^long x ^long y]
	(let [val (aget vals x)
	idx (aget idxs x)]
	(aset vals x (aget vals y))
	(aset vals y val)
	(aset idxs x (aget idxs y))