Kind of split-with, but fn is applied only once, so side-effects are okay : (extract-all-with [1 2 3 4 5 6] #(when (odd? %) (* 2 %))) -> [[2 6 10] [2 4 6]]

extract-all-with

(defn extract-all-with
  "=> (extract-all-with [1 2 3 4 5 6] #(when (odd? %) (* 2 %)))
  [[2 6 10] [2 4 6]]"
  ([coll fun]
    (extract-all-with coll fun (transient []) (transient [])))
  ([coll fun applied not-applied]
    (if-not (seq coll)
      [(persistent! applied) (persistent! not-applied)]
      (if-let 
        [x (fun (first coll))]
        (recur (rest coll) fun (conj! applied x) not-applied)
        (recur (rest coll) fun applied (conj! not-applied (first coll)))))))