loops - LISP 如何在不使用 LOOP 的情况下编写此函数

Question

我写了这个函数，但我被告知我不能使用它里面的循环，我不知道如何修改它以删除循环。有什么建议吗？

(defun function (P VariableValues)
(let* ((M (mono P))
        (VariableNames (variables P))
        (VariableDict (loop for x in VariableNames for y in VariableValues collect (cons x y)))
        (Valorizzati (mapcar (lambda (x) (applica-valori VariableDict x)) M))
    ) 
  (if Valorizzati
      (+ (car Valorizzati) (recursive-sum (cdr Valorizzati))) 
    0)))

Answer 1

您可以为此使用 mapcar:

(mapcar #'cons '(a b c) '(1 2 3))
;; ==> ((a . 1) (b . 2) (c . 3))