filter-via-reduce.clj

(defn my-filter-cons
  "Filter a sequence, implemented with reduce and cons"
  [pred sequence]
  (reduce (fn [seq x]
            (if (pred x) (cons x seq) seq)) '() sequence)) 

(defn my-filter-conj
  "Filter a sequence, implemented with reduce and conj"
  [pred sequence]
  (reduce (fn [seq x]
            (if (pred x) (conj seq x) seq)) '() sequence))