delete-when의 술어에 대한 인수가 두 개 이상인 경우

Question

상태 목록에서 하나의 단계 (요소)를 삭제한다고 가정합니다.

(defparameter *states* '((:top nil nil) (:subjects nil nil))) 
;predicate 
(defun equal-state? (step state) 
    (equal (car step) state)) 

내가 두 번째 인수 (state)이 선언문에 전달 될 수 그럼 어떻게 (delete-if #'equal-state? *states*)을 사용하는 경우?

편집 : 나는 마침내 비슷한 질문을 발견했지만, 질문의 명확성 때문에 그것을 유지하려고합니다.

Answer 1

CL-USER 67 > (let ((state :top)) 
       (delete-if (lambda (step) 
          (equal-state? step state)) 
          *states*)) 
((:SUBJECTS NIL NIL)) 

또는 사용자로서

CL-USER 68 > (defun make-predicate (state) 
       (lambda (step) 
       (equal-state? step state))) 
MAKE-PREDICATE 

CL-USER 69 > (delete-if (make-predicate :subjects) 
         *states*) 
((:TOP NIL NIL)) 

언급 코어 덤프, delete-if 잠재적으로 파괴적인 동작이다. delete-if의 비파괴적인 대안은 remove-if입니다.

CL-USER 77 > (remove :subjects 
        '((:top nil nil) 
         (:subjects nil nil)) 
        :key #'first 
        :test #'equal) 
((:TOP NIL NIL))