Skip to content

Instantly share code, notes, and snippets.

@boxp

boxp/problem5.clj

Created June 22, 2013 14:20
Show Gist options
  • Save boxp/5841042 to your computer and use it in GitHub Desktop.
Save boxp/5841042 to your computer and use it in GitHub Desktop.
Download ZIP
clojureでproject-eulerに挑戦 〜五問目〜
Raw
problem5.clj
(defn coll-divides? [x coll]
(every? true? (filter #(not= (mod x %) 0) coll)))
(print
(loop [x 20]
(if (coll-divides? x (range 1 21))
x
(recur (+ x 10)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment