홈/ 질문/Q 109329
다음
진행 중
양가야
Lv.0
등록일: 2018-01-16T14:16:01+09:00 카테고리:

lisp list중복 삭제

머리 한계로 풀 수 없어 이렇게 질문 드립니다.

생성된 리스트는 아래와 같을때, 중복항목을 삭제하고 싶습니다.
할수 있는 방법이 없을까요?..

생성된 리스트 -> (setq AA (list “AAAA” “BBBB” “AAAA” “CCCC”  “BBBB” “DDDD”)
원하는 리스트 -> (setq AA (list “AAAA” “BBBB” “CCCC” “DDDD” )

LT버전에 서드파티군으로 Lisp을 사용하고 있어, VB언어가 안됩니다…ㅠ,.ㅠ

공유

    관련 있는 질문들

    1 답변

    1. aalan
    2. Lv.21

      써드파티도 기본적으로 이정도는 지원 되는걸로 아는데요 어디 제품인가요?

       (defun _ListUniq ( lst / r )
         (while lst
           (setq r   (cons (car lst) r)
               lst (vl-remove (car lst) (cdr lst))
           )
          ) (reverse r)
       ) 
      이거 안될때 
      (defun c:ff(/ AA a b bb c)
       (setq AA (list “AAAA” “gggg” “gggg” “BBBB” “AAAA” “CCCC”  “BBBB” “DDDD” “fff” “gggg” “CCCC” “CCCC” ) b 1)
       (while b
        (setq a (car AA))
        (setq bb(cons a bb))
        (setq b (cdr AA))  
         (if b 
           (progn
             (foreach x b
               (if (/= a x)
                 (setq c(cons x c))
               )
             )
             (if c (setq AA(reverse  c)))
             (setq c nil)
           )
         )
       )
       (princ “nbb=”) (princ (reverse bb))
       (princ)
      ) 
      • 0