leaky-filter

gistfile1.clj

(defn leaky-filter [pred l n]
  (apply
    concat
    (filter #(or (some pred %) (< n (count %)))
            (partition-by nil? l))))

(is (= (leaky-filter [1 nil 2 nil nil nil nil 1 2 3] identity 3)
       [1 2 nil nil nil nil 1 2 3]))

this is useful for filtering successful requests from a seq of http requests, where using normal filter would hang if there, say, the server was down.