split_with.cljc

(defn split-with

  "Semi lazy alternative to `split-with`"

  [pred coll]

  (let [acc (transient [])]
    (loop [[v
            :as vs] coll]
      (if (seq vs)
        (if (pred v)
          [(persistent! acc)
           vs]
          (do
            (conj! acc
                   v)
            (recur (rest vs))))
        [(persistent! acc)
         nil]))))