移除列表第N项

Lispboy · 发表于 2013-6-13 02:26:19

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

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

×

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

;|
移除列表第N项
参数：
LST ---- 表
N ---- 序号（从1开始）
|;
(defun XD::List:RemoveN (lst n / _t lst1 i l)
(defun _t(lst n)
(while (and
(setq a (car lst))
(< i n)
)
(setq lst1 (cons a lst1)
lst (cdr lst)
i (1+ i)
)
)
(list lst lst1)
)
(setq l (length lst))
(cond
((= 1 n)
(cdr lst)
)
((> n l)
lst
)
(t
(if (< n (/ l 2.0))
(progn
(setq i 1)
(setq lst(_t lst n)
lst1 (car lst)
lst (cadr lst)
)
(setq lst (cdr lst))
(setq lst (XD::List:Append (reverse lst1) lst))
)
(progn
(setq i 0)
(setq lst (reverse lst))
(setq lst (_t lst (- l n))
lst1 (cadr lst)
lst (car lst)
)
(setq lst (reverse (cdr lst)))
(setq lst (XD::List:APPEND lst lst1))
)
)
)
)
lst
)

;| 
    移除列表第N项 
 
   参数： 
       LST ---- 表 
       N   ---- 序号（从1开始） 
|; 
(defun XD::List:RemoveN (lst n / _t lst1 i l) 
  (defun _t(lst n) 
            (while (and 
                   (setq a (car lst)) 
                   (
                 ) 
            (setq lst1 (cons a lst1) 
                  lst (cdr lst) 
                  i (1+ i) 
            ) 
          ) 
    (list lst lst1) 
  ) 
  (setq l (length lst)) 
  (cond 
    ((= 1 n) 
      (cdr lst) 
    ) 
    ((> n l) 
      lst 
    ) 
    (t 
      (if (< n (/ l 2.0)) 
        (progn 
          (setq i 1) 
          (setq lst(_t lst n) 
                lst1 (car lst) 
                lst (cadr lst) 
          ) 
          (setq lst (cdr lst)) 
          (setq lst (XD::List:Append (reverse lst1) lst)) 
        ) 
        (progn 
          (setq i 0) 
          (setq lst (reverse lst)) 
          (setq  lst (_t lst (- l n)) 
                 lst1 (cadr lst) 
                 lst (car lst) 
          ) 
          (setq lst (reverse (cdr lst))) 
          (setq lst (XD::List:APPEND lst lst1)) 
        ) 
      ) 
    ) 
  ) 
  lst 
)

sicky111 · 发表于 2013-6-13 02:49:33

谢谢楼主分享，如果能贴在一个帖子里就好了，便于查看。

q3_2006 · 发表于 2013-6-17 09:58:54

这个有用，还看不太明白呀！

/db_自贡黄明儒_ · 发表于 2013-6-21 16:00:05

最好随机取N
随机的那个在哪里？

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

[表] 移除列表第N项

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

评分