A Clojure solution for Project Euler - Problem 6

euler6.clj

(def whole-numbers (iterate inc 1))

(defn square [n] (* n n))

(defn sum-of-squares [n]
    (reduce + 
        (take n
            (map square whole-numbers))))

(defn square-of-sum [n]
    (square
        (reduce + 
            (take n whole-numbers))))

(- (square-of-sum 100) (sum-of-squares 100))