Merge pull request #5 from michellymenezes/quick-sort

Quick sort

Author: abranhe

math/quadratic_equation.clj

@@ -0,0 +1,14 @@
+(ns math/quadratic-equation)
+
+(defn calculate-delta
+      [a b c]
+      (- (* b b) (* 4 a c)))
+
+(defn calculate-x [delta a b]
+      (conj #{} (-> b - (+ (Math/sqrt delta)) (/ (* 2 a)))
+                (-> b - (- (Math/sqrt delta)) (/ (* 2 a)))))
+
+(defn quadratic-equation [a b c]
+      (let [delta (calculate-delta a b c)]
+           (when (>= delta 0)
+             (calculate-x delta a b))))

sorting/quick_sort.clj

@@ -0,0 +1,9 @@
+(ns sorting.quick-sort)
+
+(defn quick-sort
+  [[head & tail :as values]]
+  (if (empty? values)
+    []
+    (let [greaters (filter #(>  % head) tail)
+          smallers (filter #(<= % head) tail)]
+      (concat (quick-sort smallers) [head] (quick-sort greaters)))))