Lisp中的平方和

Question

我需要编写函数sum-squares的非递归版本并使用基于参数列表长度的do循环。

Answer 1

下面是它一般都做：

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

DO循环的解决方案更简单，而不是一半优雅：

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