diff options
| author | Stuart Sierra <mail@stuartsierra.com> | 2009-03-14 15:26:39 +0000 |
|---|---|---|
| committer | Stuart Sierra <mail@stuartsierra.com> | 2009-03-14 15:26:39 +0000 |
| commit | 0c92dbf4497411e7839ab41888f782d6b2b70c7e (patch) | |
| tree | 99290130970aa4193f22fd0f57f67a8877bfa3fc | |
| parent | 9202e255b24716484492671f9ea85d412f983ed6 (diff) | |
seq_utils.clj: added "seek" function, for (first (filter ...))
| -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))) |