Am 24.07.2010 um 08:23 schrieb Meikel Brandmeyer:
> (defn and-pred
> [& preds]
> (if-let [preds (seq preds)]
> (fn [x]
> (seq (drop-while identity (map #(% x) preds))))
> (constantly true)))
Ok. Switch brain on. Second try.
(defn and-pred
[& preds]
(fn [x]
(not (seq (drop-while identity (map #(% x) preds)))))
Sincerely
Meikel
--
You received this message because you are subscribed to the Google
Groups "Clojure" group.
To post to this group, send email to clojure@googlegroups.com
Note that posts from new members are moderated - please be patient with your
first post.
To unsubscribe from this group, send email to
clojure+unsubscr...@googlegroups.com
For more options, visit this group at
http://groups.google.com/group/clojure?hl=en
