all tasks

Task/Sorting-algorithms-Quicksort/Clojure/sorting-algorithms-quicksort-1.clj

@@ -0,0 +1,7 @@
+(defn qsort [L]
+  (if (empty? L)
+      '()
+      (let [[pivot & L2] L]
+           (lazy-cat (qsort (for [y L2 :when (<  y pivot)] y))
+                     (list pivot)
+                     (qsort (for [y L2 :when (>= y pivot)] y))))))

Task/Sorting-algorithms-Quicksort/Clojure/sorting-algorithms-quicksort-2.clj

@@ -0,0 +1,5 @@
+(defn qsort [[pvt & rs]]
+  (if pvt
+    `(~@(qsort (filter #(<  % pvt) rs))
+      ~pvt
+      ~@(qsort (filter #(>= % pvt) rs)))))

Task/Sorting-algorithms-Quicksort/Clojure/sorting-algorithms-quicksort-3.clj

@@ -0,0 +1,6 @@
+(defn qsort [[pivot & xs]]
+  (when pivot
+    (let [smaller #(< % pivot)]
+      (lazy-cat (qsort (filter smaller xs))
+		[pivot]
+		(qsort (remove smaller xs))))))

Task/Sorting-algorithms-Quicksort/Clojure/sorting-algorithms-quicksort-4.clj

@@ -0,0 +1,4 @@
+(defn qsort3 [[pvt :as coll]]
+  (when pvt
+    (let [{left -1 mid 0 right 1} (group-by #(compare % pvt) coll)]
+      (lazy-cat (qsort3 left) mid (qsort3 right)))))

Task/Sorting-algorithms-Quicksort/Clojure/sorting-algorithms-quicksort-5.clj

@@ -0,0 +1,5 @@
+(defn qsort3 [[pivot :as coll]]
+  (when pivot
+    (lazy-cat (qsort (filter #(< % pivot) coll))
+              (filter #{pivot} coll)
+              (qsort (filter #(> % pivot) coll)))))