как напечатать сумму квадратов n чисел в clojure, используя цикл / рекуррент

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 +))

Вы также можете написать это так.