表的比较问题

yxpxa

一个递增的表  a= '(3 6 12 55 156 224 456 605 772 888 1230)
一个任意参数比如  n = 300
如何用一个函数快速判断 n 在该表中处于的位置?

牢固

[pcode=lisp,true]
(defun f (a n)
    (setq i -1)
    (vl-some '(lambda(x)(setq I (1+ i))(< n x)) a)
    i
)
[/pcode]

QiaoCheng

试试 Highflybird
  二叉树查找函数
http://www.xdcad.net/forum/thread-668753-1-1.html

或者用这个
[pcode=lisp,true]
;; | 功能: 列表中不确定性元素存在的检查                                    
;; | 参数: 'ele'    - 检查的元素                                          
;; |       'Lst'    - 检查的列表                                          
;; |       'diff'   - 实数,一个模糊公差                                    
;; | 返回: 有相同的成员则返回列表中相同的位数,无相同则返回nil              
;; | 测试: (LI_memb "1.3" '("1.2" "1.1" "1.3" "1.4") 0.0001) = 1           
;;(setq a '(3 6 12 55 156 224 456 605 772 888 1230))
;;;(LI_memb 156 a 0.0001)
(defun LI_memb (ele Lst diff / len cnt Found)
  (if (zerop Diff) ;检查Diff的值是否为0,如果Diff等于零则返回 T，否则返回 nil
    (progn
       (setq Found (member ele Lst))
       (if Found (setq Found T))
    )
    (progn
       (setq len (length Lst)
             cnt 0
             Found nil
       )
       (while (and (< cnt len) (not Found))
          (if (equal ele (nth cnt Lst) diff)
              (setq Found T)
              (setq cnt (1+ cnt))
          )
       )
    )
  )
  (if Found cnt nil)
)
[/pcode]

yxpxa

感谢！
又学到一个函数 vl-some

Lispboy

牢固 发表于 2013-6-11 01:11
(defun f (a n)
    (setq i -1)
    (vl-some '(lambda(x)(setq I (1+ i))(< n x)) a)

G版，如果元素没在表中，是不是结果就不对了？

牢固

Lispboy 发表于 2013-6-11 08:38
G版，如果元素没在表中，是不是结果就不对了？

楼主的本意就是元素不一定在表中！譬如楼主给的例子 n = 300 介于224 和456之间，返回值应为 6

pengfei2010

牢固 发表于 2013-6-11 01:11
(defun f (a n)
    (setq i -1)
    (vl-some '(lambda(x)(setq I (1+ i))(< n x)) a)

还有vl-some这个函数啊，长见识了

XDSoft

牢固 发表于 2013-6-11 10:27
楼主的本意就是元素不一定在表中！譬如楼主给的例子 n = 300 介于224 和456之间，返回值应为 6

G版，这个我认为既然是排序的表了，用折半查找法效率能提升很多。

ayl1004

1. (- (length Lst) (length (vl-member-if '(lambda (x)
   
2.                                          (<= n x)
   
3.                                        )
   
4.                         ) lst
   
5.                 )
   
6. )
   
7. 
   

(- (length Lst) (length (vl-member-if '(lambda (x)<br />                                          (<= n x)<br />                                        )<br />                         ) lst<br />                 )<br /> )<br /> <br />

牢固

XDSoft 发表于 2013-6-11 12:07
G版，这个我认为既然是排序的表了，用折半查找法效率能提升很多。

理论上是如此！
但对于此例，实际上并非如此吧！
折半查找，起码每次要取出中间的元素吧，根据Lisp七大公理，还不是要通过Car cdr 等基本函数从头遍历到该元素！Vl-som只是从头遍历到要找到的位置就结束了，只经过一遍 遍历！我想还是vl-some快吧！

wowan1314

牢固 发表于 2013-6-11 01:11
(defun f (a n)
    (setq i -1)
    (vl-some '(lambda(x)(setq I (1+ i))(< n x)) a)

总觉的循环里少放代码会快点！ 所以稍加改造。

2. (defun T2 (a n)
   
3.   (- (length a) (length (vl-member-if '(lambda(x)(< n x)) a)))
   
4. )

(defun T2 (a n)<br />   (- (length a) (length (vl-member-if '(lambda(x)(< n x)) a)))<br /> )

简单测试了下也可以！

dnbcgrass

还有这个函数也行：(vl-position  symbol list)
(setq a  '(3 6 12 55 156 224 456 605 772 888 1230))
(vl-position 3 a)
(vl-position 888 a)
(vl-position 300 a)
(3 6 12 55 156 224 456 605 772 888 1230)
0
9
nil
_$

ayl1004

ayl1004 发表于 2013-6-11 12:32

:lol 你不能把a改成lst吗？

dnbcgrass

无所谓:lol

牢固

dnbcgrass 发表于 2013-6-11 18:11
还有这个函数也行：(vl-position  symbol list)
(setq a  '(3 6 12 55 156 224 456 605 772 888 1230))
  ...

你还没理解楼主的题意！