[求助]：如何取出表的重复项?

knight928

如: (setq OldLst (list "计" "ji" "hua" "ji" "1" "hua"))
   求出当中的 "ji" 和 "hua" ??

Underway

(setq NewLst (vl-sort OldLst '<)  rLst nil)
(while (cdr NewLst) ;; ("1" "hua" "hua" "ji" "ji" "计")
  (if (= (car NewLst) (Cadr NewLst))
    (setq rLst (cons (car NewLst) rLst))
  )
  (setq NewLst (cdr NewLst))
)

Command: !rLst
("ji" "hua")

仅适用本例

jdhszh

(defun sc()
(setq OldLst (list "计" "ji" "hua" "ji" "1" "hua"))
(setq a 0 rlst '())
(repeat (- (length oldlst) 1)
  (setq new(car OldLst))
   (setq n1(length oldlst))
  (setq OldLst (cdr OldLst))
   (setq n2(length (vl-remove new OldLst)))
   (if (> (- n1 n2) 1) (setq rlst(cons new rlst)))
   (setq a(1+ a))
)
)

knight928

非常感谢!
楼上比较简洁好用!

xshrimp

[php]
(setq Lst (list "计" "ji" "hua" "ji" "1" "hua") newlst nil)

(foreach n lst
  (if (and (member n (cdr (member n lst)) )
           (not (member n newlst))
      )
  (setq newlst (append  newlst (list n)))
  )
)
newlst
--->("ji" "hua")
[/php]

taner

2. 
   
3.   [FONT=courier new]
   
4. (defun test (lst / l)
   
5.   (foreach each lst
   
6.     (if (and
   
7.           (member each (setq lst (cdr lst)))
   
8.           (not (member each l))
   
9.         )
   
10.       (setq l (cons each l))
    
11.     )
    
12.   )
    
13.   (reverse l)
    
14. )
    
15. 
    
16.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun test (lst / l)<br />   (foreach each lst<br />     (if (and<br />           (member each (setq lst (cdr lst)))<br />           (not (member each l))<br />         )<br />       (setq l (cons each l))<br />     )<br />   )<br />   (reverse l)<br /> )<br /> <br />   [/FONT]<br />

sfjlx

最初由 taner 发布
[B][CODE]
  
(defun test (lst / l)
  (foreach each lst
    (if (and
          (member each (setq lst (cdr lst)))
          (not (member each l))
        )
      (setq l (cons each l))
    )
  )
... [/B]

打扰了，能否解释一下（defun test (lst / l)里lst 这个位置的函数是何用图？/后是局域变量，前边就不知道了。

taner

2. 
   
3.   [FONT=courier new]
   
4. defun
   
5.   
   
6. 
   
7. 
   
8. 定义函数
   
9. 
   
10. (defun sym ([arguments] [/ variables...]) expr...)
    
11. 参数
    
12. 
    
13. sym
    
14. 
    
15. 函数名。
    
16. 
    
17. arguments
    
18. 
    
19. 函数需要的形式参数名。
    
20. 
    
21. / variables
    
22. 
    
23. 函数使用的一个或多个局部变量名。
    
24. 
    
25. 局部变量名称前的斜线和第一个局部名称之间，以及该斜线和最后一个参数（如果存在的话）之间，都必须保持至少一个空格的距离。
    
26. 
    
27. expr
    
28. 
    
29. 执行函数时要执行的任意数目 AutoLISP 表达式。
    
30. 
    
31. 如果没有声明任何参数或局部符号，则在函数名称后必须使用空括号。
    
32. 
    
33. 如果指定了重复的参数或符号名称，AutoLISP 使用第一个出现的名称，而忽略其他的名称。
    
34. 
    
35. 返回值
    
36. 
    
37. 最后计算的表达式的值。
    
38. 
    
39. 警告！ 不要将内置函数或符号作为 sym 的值。这样会覆盖原有的定义，导致内置函数或符号无法使用。要获得内置函数和预定义函数的列表，请使用 atoms-family 函数。
    
40. 
    
41. 示例
    
42. 
    
43. (defun myfunc (x y) ...)         具有两个参数的函数
    
44. (defun myfunc (/ a b) ...)       具有两个局部变量的函数
    
45. (defun myfunc (x / temp) ...)    一个参数和一个局部变量
    
46. (defun myfunc () ...)            未指定参数或局部变量
    
47. 参阅
    
48. 
    
49. Visual LISP 开发人员手册中的符号和函数处理 。
    
50. 
    
51. 
    
52.   [/FONT]
    

<br />   [FONT=courier new]<br /> defun <br />   <br /> <br /> <br /> 定义函数<br /> <br /> (defun sym ([arguments] [/ variables...]) expr...) <br /> 参数<br /> <br /> sym<br /> <br /> 函数名。<br /> <br /> arguments<br /> <br /> 函数需要的形式参数名。<br /> <br /> / variables<br /> <br /> 函数使用的一个或多个局部变量名。<br /> <br /> 局部变量名称前的斜线和第一个局部名称之间，以及该斜线和最后一个参数（如果存在的话）之间，都必须保持至少一个空格的距离。<br /> <br /> expr<br /> <br /> 执行函数时要执行的任意数目 AutoLISP 表达式。<br /> <br /> 如果没有声明任何参数或局部符号，则在函数名称后必须使用空括号。<br /> <br /> 如果指定了重复的参数或符号名称，AutoLISP 使用第一个出现的名称，而忽略其他的名称。<br /> <br /> 返回值<br /> <br /> 最后计算的表达式的值。<br /> <br /> 警告！ 不要将内置函数或符号作为 sym 的值。这样会覆盖原有的定义，导致内置函数或符号无法使用。要获得内置函数和预定义函数的列表，请使用 atoms-family 函数。<br /> <br /> 示例<br /> <br /> (defun myfunc (x y) ...)         具有两个参数的函数 <br /> (defun myfunc (/ a b) ...)       具有两个局部变量的函数<br /> (defun myfunc (x / temp) ...)    一个参数和一个局部变量<br /> (defun myfunc () ...)            未指定参数或局部变量<br /> 参阅<br /> <br /> Visual LISP 开发人员手册中的符号和函数处理 。<br /> <br /> <br />   [/FONT]<br />

sfjlx

arguments

函数需要的形式参数名。
可否解释一下用途？光看定义还是不明白！有例子吗？什么叫形式参数?