перезаписать без использования set, setf или setq

Question

Мне нужна помощь, чтобы перезаписать эту функцию в общем lisp без usin SET, SETF или SETQ (я также не могу использовать циклы), я надеюсь, что кто-то может мне помочь , вот код:

(defun apply-values (DictValues Monomial) 
    (let ((Coeff (monomial-coefficient Monomial)) 
      (Vars (varpowers Monomial)) 
      (Acc 1)) 
    (mapcar (lambda(x) 
       (setf Acc (* Acc (expt 
            (cdr (assoc (varpower-symbol x) DictValues)) 
            (varpower-power x))))) 
      Vars) 
    (* Coeff Acc))) 

моя проблема заключается в строке, которая начинается с MAPCAR.

Заранее благодарим вас за помощь!

Answer 1

Повторные накопительные операции над списком называется reduction:

(defun apply-values (DictValues Monomial) 
    (reduce #'* 
      (mapcar 
       (lambda (x) 
        (expt (cdr (assoc (varpower-symbol x) DictValues)) 
         (varpower-power x))) 
       (varpowers Monomial)) 
      :initial-value (monomial-coefficient Monomial))) 

Использование функции высшего порядка, которые должным образом соответствуют ситуации позволяют функциональному стиль, без явного именования промежуточных значений. Код более ясен и менее подвержен ошибкам с помощью человеческого кодера.