Сумма квадратов в Lisp

Question

Мне нужно написать нерекурсивную версию функции sum-square и использовать do-loop, основанный на длине списка аргументов.

Answer 1

Вот как это делается обычно:

(defun sum-squares (list) (loop for x in list 
       for y = (* x x) 
       summing y into total 
       finally (return total))) 

А до решения петли еще проще, но не половина элегантны:

(defun sum-squares (list) 
     (let ((sum 0)) (do ((i 0 (1+ i))) 
       ((>= i (length list))) 
      (setq sum (+ sum (* (nth i list) (nth i list))))) 
       sum))