a response to http://blog.fogus.me/2009/08/14/clojure-golf-episode-1/

filter-collecting.clj

;; this one looks much cleaner, but it holds onto the heads of the lists

(defn filter-collecting [predicate collector & lists]
  (let [tuples (apply map vector lists)
        filtered (filter #(apply predicate %) tuples)]
     (map #(apply collector %) filtered)))

;; less garbage, but uglier

(defn filter-collecting [predicate collector & lists]
  (map #(apply collector %) (filter #(apply predicate %) (apply map vector lists))))