Merge pull request #108 from justCxx/remove-duplicates

Update remove duplicates issue
hexlet-codebattle · Sep 8, 2015 · 32ec384 · 32ec384
2 parents aa69112 + 7cdec30
commit 32ec384
Showing 1 changed file with 6 additions and 7 deletions.
diff --git a/test/battle_solutions/remove_duplicates_test.clj b/test/battle_solutions/remove_duplicates_test.clj
@@ -3,13 +3,12 @@
             [battle-asserts.test-helper :refer [assert-equal]]))
 
 (defn compress [seq]
-  (cond
-    (nil? seq) nil
-    (nil? (second seq)) seq
-    (= (first seq)
-       (first (rest seq))) (compress (rest seq))
-    :else (cons (first seq)
-                (compress (rest seq)))))
+  (->> seq
+       (reduce #(cond
+                  (= %2 (first %1)) %1
+                  :else (conj %1 %2))
+               nil)
+       (reverse)))
 
 (deftest test-asserts
   (assert-equal [] (compress []))