Skip to content

Instantly share code, notes, and snippets.

/robbiev-4clojure-solution30.clj

Created September 4, 2011 09:15
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save anonymous/1192569 to your computer and use it in GitHub Desktop.
Save anonymous/1192569 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
robbiev-4clojure-solution30.clj
;; robbiev's solution to Compress a Sequence
;; https://4clojure.com/problem/30
#(reverse
(reduce (fn [a b] (if (= (first a) b) a (cons b a)))
(list (first %)) %))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment