cdemyanovich

(ns euler.core)

(defn multiple-of-3-or-5? [n] (or (= 0 (mod n 3)) (= 0 (mod n 5))))

(defn sum-of-multiples-of-3-or-5-below [n]
  (apply + (filter multiple-of-3-or-5? (range 1 n))))

(defn fibs []
  (map first (iterate (fn [[a b]] [b (+ a b)]) [1N 1N])))