Edd Mann Developer

Bubble-sort in Clojure... again

Following on from my previous solution to implementing the Bubble-sort algorithm in Clojure, I thought it would be interesting to experiment with a different approach. Taking advantage of lists and vectors respective cheap head and tail insertions, we can use these two properties to good effect as shown below.

(defn- bubble
([xs] (bubble xs [] false))
([[x y & xs] ys changed]
(if (nil? y)
[(conj ys x) changed]
(if (> x y)
(recur (cons x xs) (conj ys y) true)
(recur (cons y xs) (conj ys x) changed)))))

(defn bubble-sort [xs]
(loop [[ys changed] (bubble xs)]
(if changed
(recur (bubble ys))

(bubble-sort [3 2 1]) ; [1 2 3]

Replacing the reduce used previously with a concise recursive function you are able to see how the pass phase is complete - using a changed flag to signal an alteration occurring within the iteration. The implementation is again split up into a main and helper function which allows us to clearly see the separation between the conditional pass loop and bubble action.