aymanosman · November 26, 2018 23:32
diff --git a/4clojure-30.clj b/4clojure-30.clj
 (defn f
  ([xs] (if (empty? xs) () (f (first xs) (rest xs))))
  ([x xs]
   (cond
     (empty? xs) (list x)

     :else
     (let [y (first xs)]
       (cond
         (= x y)
         (f x (rest xs))

         :else
         (cons x (f y (rest xs))))))))
	(defn f
	([xs] (if (empty? xs) () (f (first xs) (rest xs))))
	([x xs]
	(cond
	(empty? xs) (list x)

	:else
	(let [y (first xs)]
	(cond
	(= x y)
	(f x (rest xs))

	:else
	(cons x (f y (rest xs))))))))