[讨论]->征求最佳答案：删除表中第 n 个元素的最快算法

cnks

vormittag 发表于 2011-11-16 19:20
请教cnks一下，哪些函数属于内部函数？autocad的帮助里好像没有找到信息，您能给点资料么？

byghbcx

byghbcx 发表于 2011-11-14 00:29
我用了几种方法，用MEMBER还是较快

我测的是第三个最快

linshiyin2

xiaxiang 发表于 2011-11-13 17:46
纯粹凑个热闹，不懂如何提速。如果能知道是正向提取还是逆向提取，会不会好些。
递归法，从1开始，不能为0 ...

测试表长度，通过判断删除元素在的位置，然后决定倒置表否就可以正向还是逆向了。

linshiyin2

我提个建议，大家都写了不少好程序，但是好多达人没有回收函数，这个小技巧大家不会不清楚吧，内存不回收的坏习惯可不好。
举个例子先：
(defun test1(lst n /)
  (setq m 0 lst_1 '() i 0)
  (repeat (length lst)
    (if (/= m n)
      (setq lst_1(cons (nth i lst)lst_1 ))
      )
      (setq m (1+ m)
             i (1+ i))     
      )
    (setq lst_1 (reverse lst_1))
    )

其中m，i，lst_1都没有回收。
还有写程序没有解释

狂刀lxx

;;如果....，提个改进思路，没有具体验证结果是否正确，如果不对大家自己可以调整一下。
谁帮测试一下？
加了一个代码 (setq i (1+ i)) 这回该对了
;; by 狂刀lxx  2011.11

2. ;; by 狂刀lxx  2011.11
   
3. (defun xl-nr  (i lst / n)  
   
4.   (setq i (1+ i))
   
5.   (defun xxx (i lst / lst2)
   
6.     (repeat (/ i 4)
   
7.       (setq lst2(cons(cadddr lst)(cons(caddr lst)(cons(cadr lst)(cons (car lst) lst2))))
   
8.      lst (cddddr lst))
   
9.       )
   
10.     (repeat (rem i 4)
    
11.       (setq lst2(cons (car lst) lst2)
    
12.      lst (cdr lst))
    
13.       )
    
14.     (append (reverse lst2)(cdr lst))
    
15.   )
    
16. ;;;  (if (equal (vl-position (nth i lst) lst) i);;未完待续
    
17. ;;;   nil;;未完待续
    
18. ;;;    (progn;;未完待续
    
19.       (setq n (length lst))
    
20.       (if (< i (* n 0.5))
    
21.           (xxx i lst)
    
22.           (reverse (xxx (- n i) (reverse lst)))
    
23.       )
    
24. ;;;      );;未完待续
    
25. ;;;    );;未完待续
    
26. )

;; by 狂刀lxx  2011.11<br /> (defun xl-nr  (i lst / n)  <br />   (setq i (1+ i))<br />   (defun xxx (i lst / lst2)<br />     (repeat (/ i 4)<br />       (setq lst2(cons(cadddr lst)(cons(caddr lst)(cons(cadr lst)(cons (car lst) lst2))))<br />      lst (cddddr lst))<br />       )<br />     (repeat (rem i 4)<br />       (setq lst2(cons (car lst) lst2)<br />      lst (cdr lst))<br />       )<br />     (append (reverse lst2)(cdr lst))<br />   )<br /> ;;;  (if (equal (vl-position (nth i lst) lst) i);;未完待续<br /> ;;;   nil;;未完待续<br /> ;;;    (progn;;未完待续<br />       (setq n (length lst))<br />       (if (< i (* n 0.5))<br />           (xxx i lst)<br />           (reverse (xxx (- n i) (reverse lst)))<br />       )<br /> ;;;      );;未完待续<br /> ;;;    );;未完待续<br /> )

czb203

测试一下，真的还不错啊 谢谢啊

nzl1116

发一个将表转换成字符串
(defun removeItem1 (m mLst / aStr charNum mItem posit rvStr aLst bLst bStr)
  (setq        aStr  (vl-prin1-to-string mLst)
        charNum (strlen aStr)
        aStr  (substr (substr aStr 1 (1- charNum)) 2)
        m     (1- m)
        mItem (nth m mLst)
        posit (vl-position mItem mLst)
        rvStr ""
        aLst  mLst
  )
  (while (> m posit)
    (setq bLst        (cdr (member mItem aLst))
          bStr        (vl-prin1-to-string bLst)
          charNum (strlen bStr)
          bStr  (substr (substr bStr 1 (1- charNum)) 2)
          rvStr        (strcat rvStr (vl-string-subst "" bStr aStr))
          m        (- m posit 1)
          aStr        bStr
          aLst        bLst
          posit        (vl-position mItem aLst)
    )
  )
  (read (strcat "(" rvStr (vl-string-subst "" (vl-prin1-to-string mItem) aStr) ")"))
)

dxj958

超精采，超精采

露草

高手真多  还没有考虑速度这个因素

328302216

这么多高手都喜欢玩这个吖  呵呵