ProjectEuler0006 on clojure

; SLIME
user> (defn PE0006 [] (- (let [x (apply + (range 101))] (* x x)) (apply + (for [x (range 101)] (* x x)))))
#'user/PE0006
user> (PE0006)
25164150

ノーコメント