는

Question

(bind ?existing_total_count (nth$ 2 (send ?INSTANCE ?get-INTS))) 
(send (nth$ 2 (send ?INSTANCE put-INTS)) (+ ?total_count ?existing_total_count)) 

첫 번째 줄은 잘 컴파일 클립에 컴파일 타임 오류가 발생, 클립에서 개체를 업데이트 할 수 있지만, 두 번째 줄은 내가 무엇을 findout하지 못할

타입 기호로 오류를 기능 전송 예상 인수 # 2를 던지고 문제가 있습니다. 슬롯 INTS의 두 번째 항목을 업데이트하려고합니다.

Answer 1

CLIPS> 
(defclass A 
    (is-a USER) 
    (multislot INTS)) 
CLIPS> (make-instance [a] of A (INTS 1 2 3)) 
[a] 
CLIPS> (send [a] print) 
[a] of A 
(INTS 1 2 3) 
CLIPS> (bind ?INSTANCE [a]) 
[a] 
CLIPS> (bind ?existing_total_count (nth$ 2 (send ?INSTANCE get-INTS))) 
2 
CLIPS> (bind ?total_count 3) 
3 
CLIPS> (slot-replace$ ?INSTANCE INTS 2 2 (+ ?total_count ?existing_total_count)) 
(1 5 3) 
CLIPS> (send [a] print) 
[a] of A 
(INTS 1 5 3) 
CLIPS> (bind ?total_count 5) 
5 
CLIPS> (send ?INSTANCE put-INTS (replace$ (send ?INSTANCE get-INTS) 2 2 (+ ?total_count ?existing_total_count))) 
(1 7 3) 
CLIPS> (send [a] print) 
[a] of A 
(INTS 1 7 3) 
CLIPS>