Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (ns problem1)
- ; Problem 1:
- ; If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9.
- ; The sum of these multiples is 23.
- ;
- ; Find the sum of all the multiples of 3 or 5 below 1000.
- (defn
- sum-of-multiples-of-3-and-5
- "Returns the sum of all numbers between 1(inclusive) and 1000(exclusive) that are multiples of 3 or 5"
- []
- (reduce
- (fn [total nxt] (+ total nxt))
- (filter
- (fn [number] (if (is-multiple-of-3-or-5? number) number))
- (range 1 1000))))
- (defn
- is-multiple-of-3-or-5?
- "Determines if an Integer is a multiple of 3 or 5"
- [number]
- (or (zero? (mod number 3)) (zero? (mod number 5))))
Add Comment
Please, Sign In to add comment