Compress a Sequence

compseq.clj

;; Compress a sequence: Write a function which removes consecutive duplicates from a sequence.

;; old way
(defn comp-seq-old [n]
  (cond
    (empty? (rest n)) n
    (= (first n) (first (rest n))) (comp-seq-old (cons (first n) (rest (rest n))))
    :else (cons (first n) (comp-seq-old (rest n)))))

;; new way
(defn comp-seq-new [n]
  (map first (partition-by identity n)))