람다 함수 고유 매개 변수

Question

동일한 코드를 사용하지만 내부 매개 변수가 다른 람다 함수를 만들려고합니다. 내가 여기에 코드를 가하고있어, 명확히하기 위해 :

(defun testes() 
(setf lol '()) 
(loop for i in (list 1 2 3 4 5) 
     do (loop for j in (list 1 2 3 4 5) 
     do (setf lol (append lol (list (cons i j)))))) 


lol 

) 

(defun mainff() 
(setf lol (testes)) 
(setf res()) 
(print lol) 
(loop for i in lol 
    do (setf res (append res (list #'(lambda() 
         (print i) 
         )))) 
) 
res 
) 

(defun fun() 
(setf res (mainff)) 

(loop for i in res 
    do (funcall i) 
) 
) 

을 inicial 질문으로 돌아가서, 고해상도의 APPEND에서 내가 만든 각 람다 고유해야합니다. 그러나 그것은 가정하는 마지막 값만 저장합니다 (5 5). 이 문제를 해결할 방법이 있습니까?

Answer 1

LET을 사용하여 각 i에 대해 다른 바인딩을 만듭니다.

(loop for element in list 
     ... 

     (let ((i element)) 
      (lambda() 
      (print i))) 

     ... 

    )