diff options
Diffstat (limited to 'src/clojure')
| -rw-r--r-- | src/clojure/contrib/seq_utils.clj | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/clojure/contrib/seq_utils.clj b/src/clojure/contrib/seq_utils.clj index d46a57e7..ef821da1 100644 --- a/src/clojure/contrib/seq_utils.clj +++ b/src/clojure/contrib/seq_utils.clj @@ -159,3 +159,11 @@ (defmethod seq-on :default [s] (seq s)) + + +(defn seek + "Returns the first item of coll for which (pred item) returns logical true. + Consumes sequences up to the first match, will consume the entire sequence + and return nil if no match is found." + [pred coll] + (first (filter pred coll))) |