Problem 1

pe-1.clj

(use 'clojure.set)
(defn n-multiples [n end] (set (range 0 end n)))
(defn solve []
  (apply + (union (n-multiples 3 1000)
                  (n-multiples 5 1000))))

@kohyama のコメントを見る前だったので，なんだか同じようなことも書いていますが，私は (apply + coll) 派ですね． > http://tnoda-clojure.tumblr.com/post/37700304493/apply-and-reduce (@ponkore 版解答のコメントに貼ったのと同じ URL)

@plaster https://gist.github.com/4245866#gistcomment-621381 の apply/my-* 実験分かりやすくて参考になりました．apply に渡す関数の作り方の勉強にもなりました．