Skip to content

Instantly share code, notes, and snippets.

@bruce-szalwinski

bruce-szalwinski/euler1

Created November 12, 2013 21:25
Show Gist options
  • Save bruce-szalwinski/7439012 to your computer and use it in GitHub Desktop.
Save bruce-szalwinski/7439012 to your computer and use it in GitHub Desktop.
Download ZIP
Multiples of 3 and 5, http://projecteuler.net/problem=1
Raw
euler1
(reduce (fn [a b] (+ a b))
(map (fn [x] (if
(or
(zero? (mod x 3 ))
(zero? (mod x 5)))
x 0))
(range 1 1000)))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment