break.clj

(defn break
  [pred coll]
  (lazy-seq
   (if-let [[x & rest :as all] (not-empty coll)]
     (if-not (pred x)
       [() all]
       (let [[a b] (break pred rest)]
         [(cons x a) b]))
     [() ()])))