problem_1.clj

(defn divisible-by-3-or-5
  [n]
  (or (= 0
         (mod n 3))
      (= 0
         (mod n 5))))

(defn sum
  [xs]
  (reduce + xs))

(sum (filter divisible-by-3-or-5 (range 1 1000)))