gistfile1.clj

(defn multi-split-with
  "Returns a lazy collection of lists which elements ..."
  [pred coll]
  (let [[head tail] (split-with pred coll)
        tail-without-seps (drop-while (complement pred) tail)]
    (lazy-seq
     (if (seq tail-without-seps)
       (cons head (multi-split-with pred tail-without-seps))
       (list head)))))

(defn multi-split-with-not-so-lazy
  "Returns a lazy collection of lists which elements ..."
  [pred coll]
  (let [[head tail] (split-with pred coll)]
    (if (seq tail)
        (lazy-seq
          (cons head
            (remove empty? (multi-split-with-not-so-lazy pred
              (drop-while (complement pred) tail)))))
      (list head))))