A lazy implementation of filter.

filter.clj

(defn my-filter [predicate? collection]
  (lazy-seq
   (loop [[head & tail] collection]
     (if (predicate? head)
       (cons head (my-filter predicate? tail))
       (if (seq tail)
           (recur tail)
           ())))))