вычислить сумму: S=k^2-(2k)^2+(3k)^2-...+(-1)^(n-1)*(kn)^2

(defun sum-1 (n k)
  (prog (p s i)         ;; локальные переменные
    (setq p 1)
    (setq s 0)
    (setq i 1)
@   (setq s (+ s (* i k i k p)))
    (setq p (- p))
    (setq i (+ 1 i))
    (cond ((<= i n) (go @))
          (t (return s)))
))
 
==> sum-1
 
(sum-1 3 1)
 
==> 6
 
(sum-1 2 1)
 
==> -3

(defmacro delay (expr)
  `(lambda () ,expr))
 
(defun force (thunk)
  (funcall thunk))
 
(defun unfold-lazy (gen-value next-seed stop-p seed)
  (if (funcall stop-p seed)
      nil
      (cons (funcall gen-value seed)
            (delay (unfold-lazy gen-value next-seed stop-p
                                (funcall next-seed seed))))))
 
(defun foldl-stream (fun acc stream)
  (if stream
      (foldl-stream fun 
                    (funcall fun acc (car stream))
                    (force (cdr stream)))
      acc))
 
 
(defun series (k &optional n &aux (k2 (* k k)))
  (unfold-lazy #'(lambda (i) (* (if (oddp i) 1 -1) i i k2))
               #'(lambda (i) (1+ i))
               (if n
                   #'(lambda (i)
                       (> i n))
                   (constantly nil))
               1))
 
(defun partial-sum (k n)
  (foldl-stream #'+ 0 (series k n)))

(defun mkl (n k) (cond ((= n 0) nil) ;; построение последовательности 
                       (t (cons (* n k n k (expt -1 (- n 1))) (mkl (- n 1) k)))))
==> mkl
 
(defun sumlist (x) (cond ((null x) 0) ;; суммирование списка
                         (t (+ (car x) (sumlist (cdr x))))))
 
==> sumlist
 
(defun task (n k) (sumlist (mkl n k)))  ;; собственно, решение задачи.
 
==> task
 
(task 2 1)
 
==> -3
 
(task 3 1)
 
==> 6