재귀 후 반환 목록이 중복됩니다.

Question

저는 Lisp을 처음 사용하고 기존 목록에 목록을 추가 할 때 문제가 있습니다.

(기능 사양) 다음 함수는 2 개의 인수를 사용합니다. 원자와 목록. 목록은 각 하위 목록이 (index counter) 인 것처럼 2 차원 형식을 취합니다 (색인 및 카운터는 모두 원자입니다). target이 index 중 하나와 같으면 counter 씩 증가합니다. 더 하위 목록이 target가없는 경우, target 아직 존재하지 않는 경우 문제가 counter = 1

(defun contained (target list) 
    (cond ((null list) (list target 1)) 
    ((= (car (car list)) target) 
    (setf (cadr (car list)) 
      (+ (cadr (car list)) 1))) 
    (t (push (contained target (cdr list)) list)))) 

으로 새 하위 목록을 추가 할 수 있습니다. 아래에 표시된 것처럼 목록과 괄호는 중복됩니다.

> la 
((1 4) (2 1)) 
> (contained 3 la) 
(((3 1) (2 1)) (1 4) (2 1)) 

는 내가 원하는 뭔가 같은 :

((3 1) (1 4) (2 1)) 

문제를 단순화 할 수있었습니다하지 죄송

하지만, 감사합니다.

(defun contained (target list) 
    (let ((elm (assoc target list))) 
     (if elm 
      (progn (incf (cadr elm)) list) 
      (cons (list target 1) list)))) 

여기에 원래

에 더 가까이 할 수있는 방법이있다 : 당신을 위해 당신의 숙제를 위험에서

Answer 1

(defun contained (target list) 
    (cond 
    ((null list) (list target 1)) ; you are returning a new element of target 

    ((= (car (car list)) target) 
    (setf (cadr (car list)) 
      (+ (cadr (car list)) 1))) ; you are returning... what? 

    ;; yet you are pushing on every recursive call! 
    (t (push (contained target (cdr list)) list)))) 

, 여기 (MIRON Brezuleanu의 도움으로) 그것을 할 수있는 하나의 방법

(defun contained (target list) 
    (cond 
    ((null list) (list (list target 1))) 
    ((= (car (car list)) target) 
    (setf (cadr (car list)) 
      (+ (cadr (car list)) 1)) 
    list) 
    (t (setf (cdr list) (contained target (cdr list))) 
     list)))