becojo/gist:8124062

## gistfile1.clj
(defn insert [coll, n]
  (let [parts (split-with (partial > n) coll)]
    (concat (first parts) [n] (last parts))))

(defn insertion-sort [coll]
  (reduce (fn [sorted item]
    (insert sorted item)) nil coll))
	(defn insert [coll, n]
	(let [parts (split-with (partial > n) coll)]
	(concat (first parts) [n] (last parts))))

	(defn insertion-sort [coll]
	(reduce (fn [sorted item]
	(insert sorted item)) nil coll))