gistfile1.clj

(defn converging-seq
  "Generates a sequence with terminates when two successive elements
   from coll are identical.
   (converged-seq [1 2 3 4 4 5 6]) => [1 2 3 4]"
  [coll]
  (cons
   (first coll)
   (map second
	(take-while (fn [[prev curr]] (not (= prev curr))) 
		    (partition 2 1 coll)))))