réécrire sans utiliser set, setf ou setq

Question

J'ai besoin d'aide pour réécrire cette fonction en LISB commun sans SET, SETF ou SETQ (je ne peux pas utiliser de boucles), j'espère que quelqu'un pourra m'aider . voici le code:

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

mon problème est à la ligne qui commence par mapcar.

merci d'avance pour votre aide!

Answer 1

opération répétée sur une liste accumulative est connue sous le nom 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))) 

En utilisant une fonction d'ordre supérieur qui correspond bien à la situation permet au style fonctionnel, sans nommer explicitement les valeurs intermédiaires. Le code est plus clair et moins sujet aux erreurs d'un codeur humain.