如何使用循环/递归在 clojure 中打印 n 个数字的平方和

Question

我正在尝试以下代码，但它给出了一个错误：

(defn sum-square [n]
(loop [i 0 result 0]
(if (<= i n) 
(do    
(recur (inc i) (conj result (+ result (* i i))))))))  
(def n (Integer/parseInt (clojure.string/trim (read-line))))
(sum-square n)

Answer 1

(defn sum-square [n]
(->> (range n) 
(map *) 
(reduce +))

你也可以这样写。