gistfile1.clj

(todo
  "I'm not sure this function looks as nice as it could"
(defn converging-seq
  "Generates a sequence with terminates when two succent 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)))))
)

(todo-report)
"
Item 1.
I'm not sure this function looks as nice as it could

Item 2.
Why is this a loop?
"

(todo-report 1)
"
I'm not sure this function looks as nice as it could
(defn converging-seq
  "Generates a sequence with terminates when two succent 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)))))
"