use collection and tail in map

6/8/2014 - 8:54 AM

(fn [pred mark [head & tail :as coll]]
  (when (seq coll)
    (cons head (mapcat #(if (pred % %2) [mark %2] [%2]) coll tail))))

Cacher is the code snippet organizer for pro developers