Lisp, mapcar - можно ли красивше?

[adav84]

Код: Выделить всё

(let ((a 1))
  (mapcar #'(lambda (n)
              (prog1
                  (+ n a)
                (incf a)))
          '(1 2 3)))
=> '(2 4 6)

дело не в том, чтобы прибавить к каждому последующему элементу на единицу больше,
а в том, что ф-я хранит состояние (хотя я (смутно) понимаю, что mapcar не для этого)
но можно ли его хранить где-нибудь в другом месте?

сорри, если сумбурно.

[watashiwa_daredeska]

можно ли его хранить где-нибудь в другом месте?

Нет. Это классическое замыкание. Если записать как:

Код: Выделить всё

(mapcar
 (let ((a 1))
   #'(lambda (n)
       (prog1
           (+ n a)
         (incf a))))
   input-list)

то получится более явно записанное замыкание.

Вообще же, если речь идет о CL, то он не функциональный, и вполне разумно пользоваться LOOP:

Код: Выделить всё

(loop
   for x in input-list
   for i from 1
   collect (+ x i))