Add q30

src/ex/q030.clj

@@ -0,0 +1,8 @@
+;; https://4clojure.oxal.org/#/problem/030
+
+(ns ex.q030)
+
+(defn ans
+  "Problem 30, Compress a Sequence. (remove consecutive duplicates from a sequence)"
+  [coll]
+  (reduce #(if (= (last %1) %2) %1 (conj %1 %2)) [] coll))

test/ex/q030_test.clj

@@ -0,0 +1,11 @@
+;; https://4clojure.oxal.org/#/problem/030
+
+(ns ex.q030-test
+  (:require [clojure.test :as t]
+            [ex.q030 :as sut]))
+
+(t/deftest test-q30
+  (t/testing "Problem 30, Compress a Sequence"
+    (t/is (= "Leroy" (apply str (sut/ans "Leeeeeerrroyyy"))))
+    (t/is (= '(1 2 3 2 3) (sut/ans [1 1 2 3 3 2 2 3])))
+    (t/is (= '([1 2] [3 4] [1 2]) (sut/ans [[1 2] [1 2] [3 4] [1 2]])))))