Skip to content

Instantly share code, notes, and snippets.

@rmuslimov

rmuslimov/playground.clj

Created August 4, 2017 13:04
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save rmuslimov/d69d358a11c612f27ea633a88a152c55 to your computer and use it in GitHub Desktop.
Save rmuslimov/d69d358a11c612f27ea633a88a152c55 to your computer and use it in GitHub Desktop.
Download ZIP
sum primes
Raw
playground.clj
(defn prime?
[n]
(let [divides? #(zero? (mod n %))
candidates (range 2 (inc (/ n 2)))]
(and (> n 1) (not-any? divides? candidates))))
(defn sum-prime-numbers
[numbers]
(->> numbers
(filter prime?)
(apply +)))
(def example-s1 [1 4 5 13 15 17 20 3])
(sum-prime-numbers example-s1)
(def example-s2 [3 5 7])
(sum-prime-numbers example-s2)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment