История изменений
Исправление no-such-file, (текущая версия) :
как писать с elt да ещё как в С, я понятия не имею.
Примерно так, если я всё правильно понял
(defun m (a p n)
(loop
with an = (elt a n)
for i from 0 to (1- n)
sum (* (elt p i) (- an (elt a i))) into s
finally (return (+ s (* an (elt p i))))))
(defun solve(a p)
(loop
with last = (1- (length a))
for n from 0 to last
collect (m a p n)))
Исходная версия no-such-file, :
как писать с elt да ещё как в С, я понятия не имею.
Примерно так
(defun m (a p n)
(loop
with an = (elt a n)
for i from 0 to (1- n)
sum (* (elt p i) (- an (elt a i))) into s
finally (return (+ s (* an (elt p i))))))
(defun solve(a p)
(loop
with last = (1- (length a))
for n from 0 to last
collect (m a p n)))