Sorting algorithms/Insertion sort: Difference between revisions
Content added Content deleted
(added FreeBASIC) |
|||
Line 455:
=={{header|Clojure}}==
<lang clojure>
(defn insertion-sort [coll]
(reduce (fn [result input]
(let [[less more] (split-with #(< % input) result)]
(concat less [input] more)))
[]
coll))
</lang>
Translated from the Haskell example:
<lang clojure>
(letfn [(insert ([raw x](insert [] raw x))
([sorted [y & raw] x]
|