Guest User

Untitled

a guest
Jul 16th, 2018
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.66 KB | None | 0 0
  1. (ns problem1)
  2.  
  3. ; Problem 1:
  4. ; If we list all the natural numbers below 10 that are multiples of 3 or 5, we get 3, 5, 6 and 9.
  5. ; The sum of these multiples is 23.
  6. ;
  7. ; Find the sum of all the multiples of 3 or 5 below 1000.
  8.  
  9. (defn
  10. sum-of-multiples-of-3-and-5
  11. "Returns the sum of all numbers between 1(inclusive) and 1000(exclusive) that are multiples of 3 or 5"
  12. []
  13. (reduce
  14. (fn [total nxt] (+ total nxt))
  15. (filter
  16. (fn [number] (if (is-multiple-of-3-or-5? number) number))
  17. (range 1 1000))))
  18.  
  19. (defn
  20. is-multiple-of-3-or-5?
  21. "Determines if an Integer is a multiple of 3 or 5"
  22. [number]
  23. (or (zero? (mod number 3)) (zero? (mod number 5))))
Add Comment
Please, Sign In to add comment