; 判断表是否存在相同元素找到相同马上退出返回T

ymcui2005

(defun Y::LIST:for (lst / st)
  (foreach lt lst
    (mapcar '(lambda (x)
              (if(equal lt x 0.000001)
                (setq st t lst '()))
              )
    (setq lst (cdr lst))
    )
  )
  st
)

aimisiyou

复杂度为O(n^2),有没有O(n)算法？

marting

有个建议

是否加入精度参数，让用户控制误差，这样更通用些

另外，是否利用vl-some遇到真就退出的性质，更有效率呢？

1. (defun _hasDup (lst fuzz / find)
   
2.   (while (and (setq item (car lst))
   
3.            (not (setq find (vl-some '(lambda (x) (equal x item fuzz)) (cdr lst))))
   
4.          )
   
5.      (setq lst (cdr lst))
   
6.   )
   
7.   find
   
8. )
   
9. 
   

(defun _hasDup (lst fuzz / find)<br />   (while (and (setq item (car lst))<br />            (not (setq find (vl-some '(lambda (x) (equal x item fuzz)) (cdr lst))))<br />          )<br />      (setq lst (cdr lst))<br />   )<br />   find<br /> )<br /> <br />

命令: (setq a '(0 2 1.01 "faf" 1.03 3.4))
(0 2 1.01 "faf" 1.03 3.4)

命令: (_hasdup a 0.1)
T
命令: (_hasdup a 0.01)
nil
命令: (_hasdup a 0.04)
T

marting

aimisiyou 发表于 2017-8-19 16:12

应该不可能有N，因为涉及到比较，能优化到n * log(n)就顶天了，我想。

aimisiyou

(defun f (lst)
  (if (member (car lst) (cdr lst))
      (setq va t)
      (f (cdr lst))
  )
)

marting

aimisiyou 发表于 2017-8-19 17:06

这个也是两层循环啊，而且递归有限制。

479274135

学习下  谢谢分享