返回表第N个元素之后的所有元素（不包括N）

Lispboy · 发表于 2013-6-12 22:20:12

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2013-6-13 00:41 编辑

;|
返回表第N个元素之后的所有元素（不包括N）
参数：
LST ---- 表
N ---- 序号（从1开始）
|;
(defun XD::List:N+ (lst n / lst1 i l)
(setq l (length lst))
(cond
((< n 1)
lst
)
((= n 1)
(cdr lst)
)
((= n 2)
(cddr lst)
)
((= n 3)
(cdddr lst)
)
((= n 4)
(cddddr lst)
)
((and
(>= n 5)
(<= l)
)
(if (< n 1)
(setq n 1)
)
(setq i 0)
(if (< n (/ l 2.0))
(progn
(while (and
(setq a (car lst))
(< i n)
)
(setq lst (cdr lst)
i (1+ i)
)
)
lst
)
(progn
(setq lst (reverse lst))
(while (and
(setq a (car lst))
(< i (- l n))
)
(setq lst1 (cons a lst1)
lst (cdr lst)
i (1+ i)
)
)
lst1
)
)
)
)
)

;| 
 
   返回表第N个元素之后的所有元素（不包括N） 
 
   参数： 
       LST ---- 表 
       N   ---- 序号（从1开始） 
|; 
(defun XD::List:N+ (lst n / lst1 i l) 
  (setq l (length lst)) 
  (cond 
    ((< n 1) 
      lst 
    ) 
    ((= n 1) 
      (cdr lst) 
    ) 
    ((= n 2) 
      (cddr lst) 
    ) 
    ((= n 3) 
      (cdddr lst) 
    ) 
    ((= n 4) 
      (cddddr lst) 
    ) 
    ((and 
       (>= n 5) 
       (<= l) 
     ) 
      (if (< n 1) 
        (setq n 1) 
      ) 
      (setq i 0) 
      (if (< n (/ l 2.0)) 
        (progn 
          (while (and 
                   (setq a (car lst)) 
                   (
                 ) 
            (setq lst (cdr lst) 
                  i (1+ i) 
            ) 
          ) 
          lst 
        ) 
        (progn 
          (setq lst (reverse lst)) 
          (while (and 
                   (setq a (car lst)) 
                   (
                 ) 
            (setq lst1 (cons a lst1) 
                  lst (cdr lst) 
                  i (1+ i) 
            ) 
          ) 
          lst1 
        ) 
      ) 
    ) 
  ) 
)

Free-Lancer · 发表于 2013-6-12 22:25:24

整复杂了吧
[pcode=lisp,true]
(defun XD::List:N (lst n)
(repeat n
(setq lst (cdr lst))
)
)[/pcode]

Love-Lisp · 发表于 2013-6-12 22:34:15

Free-Lancer 发表于 2013-6-12 22:25
整复杂了吧

(defun XD:ist:N (lst n)

确实整复杂了！代码前面加个if判断吧！

(defun XD::List:N (lst n)
(if (< n (length lst)
(repeat n
(setq lst (cdr lst))
)
)
)

Free-Lancer · 发表于 2013-6-12 22:41:18

Love-Lisp 发表于 2013-6-12 22:34
确实整复杂了！代码前面加个if判断吧！

个人认为没必要，Alisp 这个应用多数情况不会用到溢出情况，真要有这种特殊情况的时候另写加判断的

wowan1314 · 发表于 2013-6-12 22:45:21

本帖最后由 wowan1314 于 2013-6-13 09:30 编辑

支持！条条马路通罗马。楼主这是在改造原有函数吗?

;;=============={ 用member的话，对于有重复元素的表是不行的 }===================
;;测试: (T3 3 '(2334 556 33 44 66 77 22))==> (44 66 77 22)
(DEFUN T3 (n lst)
(setq n (nth n lst))
(member n lst)
)
;;=============={ 返回表第N个元素之后的所有元素 }===================
;;测试: (T31 3 '(2334 556 33 44 66 77 22))==> (44 66 77 22)
(DEFUN T31 (n LST / A)
(setq A 0)
(vl-member-if '(lambda(x)(setq A (1+ A)) (< n A) ) lst)
)
;;=============={ 返回表第N个元素之后的所有元素 }===================
;;测试: (T32 3 '(2334 556 33 44 66 77 22))==> (44 66 77 22)
(DEFUN T32 (n LST / A)
(setq A 0)
(vl-remove-if '(lambda(x)(setq A (1+ A)) (<= A n) ) lst)
)

Gdlprfcu · 发表于 2013-6-12 22:53:57

那么多意义不大的函数记得住吗？

Free-Lancer · 发表于 2013-6-12 22:56:19

wowan1314 发表于 2013-6-12 22:45
支持！条条马路通罗马。楼主这是在改造原有函数吗?

如果Nth前有重复元素，Member就不对了，论坛老帖子有过讨论

wowan1314 · 发表于 2013-6-12 22:57:37

Free-Lancer 发表于 2013-6-12 22:56
如果Nth前有重复元素，Member就不对了，论坛老帖子有过讨论

有道理！没考虑那么多！呵呵！受教了。

newer · 发表于 2013-6-12 23:01:31

wowan1314 发表于 2013-6-12 22:57
有道理！没考虑那么多！呵呵！受教了。

尽量别用NTH和MEMBER

newer · 发表于 2013-6-12 23:02:55

Love-Lisp 发表于 2013-6-12 22:34
确实整复杂了！代码前面加个if判断吧！

谁都没注意楼主的意思，大于表长的1/2 位置，从表后面循环，小于表1/2的时候，从表前循环。

Lispboy · 发表于 2013-6-12 23:15:19

本帖最后由 Lispboy 于 2013-6-13 00:51 编辑

Gdlprfcu 发表于 2013-6-12 22:53
那么多意义不大的函数记得住吗？

你可以不用，这些是表的基本操作函数，用它组合完成其他功能更强的函数。

Free-Lancer · 发表于 2013-6-12 23:33:36

newer 发表于 2013-6-12 23:02
谁都没注意楼主的意思，大于表长的1/2 位置，从表后面循环，小于表1/2的时候，从表前循环。

经测试，分治算法确实可以提高效率，不过差在毫秒级

wowan1314 · 发表于 2013-6-12 23:43:02

Free-Lancer 发表于 2013-6-12 23:33
经测试，分治算法确实可以提高效率，不过差在毫秒级

几百毫秒时间就会感觉到卡顿了。一百毫秒以下才可忽略差别。

Lispboy · 发表于 2013-6-13 00:40:35

本帖最后由 Lispboy 于 2013-6-13 02:45 编辑

Free-Lancer 发表于 2013-6-12 23:33
经测试，分治算法确实可以提高效率，不过差在毫秒级

程序代码就是写一次，所以不要拿提高的时间不多来衡量一个程序。有好的算法一定要用。写程序就是画画，要精益求精:lol，这是一个习惯问题。

Lispboy · 发表于 2013-6-13 00:42:31

本帖最后由 Lispboy 于 2013-6-13 00:50 编辑

wowan1314 发表于 2013-6-12 23:43
几百毫秒时间就会感觉到卡顿了。一百毫秒以下才可忽略差别。

看来你没少玩网游啊，绿了才爽是不，都玩过啥？

账号		自动登录	找回密码
密码			立即注册

[表] 返回表第N个元素之后的所有元素（不包括N）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评

点评

点评

点评

点评

点评

点评