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