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

Lispboy · 发表于 2013-6-12 22:17:06

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

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

×

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

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

wowan1314 · 发表于 2013-6-12 22:28:26

本帖最后由 wowan1314 于 2013-6-12 22:38 编辑

我又来支持你了！哈哈。。莫非算法优越？请测试以下函数，让俺死个明白。
咋不用VL函数呢？

;;=============={ 返回表第N个元素之前的所有元素 }===================
;;测试: (T2 3 '(2334 556 33 44 66 77 22))==> (2334 556 33)
(DEFUN T2 (n lst / m NEW)
(setq m 0)
(WHILE (< M N)
(SETQ NEW (CONS (CAR LST) NEW) LST (CDR LST) m (1+ m))
)
(REverse NEW)
)

;;=============={ 返回表第N个元素之前的所有元素 }===================
;;测试: (T1 3 '(2334 556 33 44 66 77 22))==> (2334 556 33)
(DEFUN T1 (n lst / m)
(setq m 0)
(vl-remove-if '(lambda(x)(setq m (1+ m))(< n m) ) lst)
)

Free-Lancer · 发表于 2013-6-12 22:38:11

[pcode=lisp,true](defun XD::List:N- (lst n / l ll)
  (setq l (length lst))
  (if (> n (/ l 2.))
(progn (setq lst (reverse lst));_取前面
   (repeat (- l n)
      (setq lst (cdr lst));_直接丢掉原表后面的
   )
   (setq ll (reverse lst))
)
(progn (repeat n
      (setq ll  (cons (car lst) ll);_取靠前的要保留
   lst (cdr lst)
      )
   )
   (setq ll (reverse ll))
)
  )
  ll
)[/pcode]

st788796 · 发表于 2013-11-23 22:05:34

(defun XD::List:N- (lst n / lst1 l)
(if (and (<= n (setq l (length lst)))
(> l 1)
)
(if (< n (/ l 2.0))
(progn
(repeat n
(setq lst1 (cons (car lst) lst1)
lst (cdr lst)
)
)
(reverse lst1)
)
(progn
(setq lst (reverse lst))
(repeat (- l n)
(setq lst (cdr lst))
)
(reverse lst)
)
)
)
)

kkt123 · 发表于 2015-2-15 07:40:19

请测试以下函数;P;P

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

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

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

相关帖子