第一种方法
(reduce + (set (concat (range 0 1000 3)
(range 0 1000 5))))
第二种方法
(defn sb [n]
(reduce + (for [x (range n)
:when (or (= (mod x 3) 0) (= (mod x 5) 0))]
x)))
(sb 1000)
第一种方法
(reduce + (set (concat (range 0 1000 3)
(range 0 1000 5))))
第二种方法
(defn sb [n]
(reduce + (for [x (range n)
:when (or (= (mod x 3) 0) (= (mod x 5) 0))]
x)))
(sb 1000)