2016 Update

2016-12-05 22:15:40 +01:00 · 2016-12-05 22:15:40 +01:00 · dcf5d15da3
commit dcf5d15da3
parent 948b86eafa
7965 changed files with 139854 additions and 31002 deletions
--- a/Task/Sorting-algorithms-Insertion-sort/Clojure/sorting-algorithms-insertion-sort-1.clj
+++ b/Task/Sorting-algorithms-Insertion-sort/Clojure/sorting-algorithms-insertion-sort-1.clj
@ -0,0 +1,6 @@
+(defn insertion-sort [coll]
+   (reduce (fn [result input]
+             (let [[less more] (split-with #(< % input) result)]
+               (concat less [input] more)))
+           []
+           coll))
--- a/Task/Sorting-algorithms-Insertion-sort/Clojure/sorting-algorithms-insertion-sort-2.clj
+++ b/Task/Sorting-algorithms-Insertion-sort/Clojure/sorting-algorithms-insertion-sort-2.clj