返回表第n---m之间的元素（包括m n)

Lispboy

1. ;|
   
2.     返回表第m---n之间的元素（包括m n)
   
3.     表从1开始计数
   
4. 
   
5.     参数：
   
6.       lst ----  表
   
7.       m,n ----  序号
   
8. 
   
9.     说明： n 大于表长，到最后
   
10.            m 最小从1开始
    
11. |;
    
12. (defun XD::List:N-M(lst n m)
    
13.    (if (> m (setq l (length lst)))
    
14.       (setq m l)
    
15.    )
    
16.    (if (< n 1)
    
17.       (setq n 1)
    
18.    )
    
19.    (XD::List:N- (XD::List:N+ lst (1- n)) (1+ (- m n)))
    
20. )

;|<br />     返回表第m---n之间的元素（包括m n)<br />     表从1开始计数<br /> <br />     参数：<br />       lst ----  表<br />       m,n ----  序号<br /> <br />     说明： n 大于表长，到最后<br />            m 最小从1开始<br /> |;<br /> (defun XD::List:N-M(lst n m)<br />    (if (> m (setq l (length lst)))<br />       (setq m l)<br />    )<br />    (if (< n 1)<br />       (setq n 1)<br />    )<br />    (XD::List:N- (XD::List:N+ lst (1- n)) (1+ (- m n)))<br /> )

wowan1314

跟着楼主练习VL函数!呵呵

2. ;;测试: (T6 3 5 '(2334 556 33 44 66 77 22))==> (33 44 66)
   
3. (DEFUN T6 (n m LST / A)
   
4. (setq A 0)
   
5. (vl-remove-if-not '(lambda(x)(setq A (1+ A)) (<= n A m) ) lst)
   
6. )

;;测试: (T6 3 5 '(2334 556 33 44 66 77 22))==> (33 44 66)<br /> (DEFUN T6 (n m LST / A)<br /> (setq A 0)<br /> (vl-remove-if-not '(lambda(x)(setq A (1+ A)) (<= n A m) ) lst)<br /> )

Free-Lancer

[pcode=lisp,true]
(defun XD::List:M-N (lst m n / i)
  (setq i 0)
  (vl-remove-if
    '(lambda (x)
       (setq i (1+ i))
       (or (< i m)
           (> i n)
       )
     )
    lst
  )
)[/pcode]

Lispboy

wowan1314 发表于 2013-6-12 22:54
跟着楼主练习VL函数!呵呵

VL-REMOVE-IF 要遍历所有表的，我写的函数，找到后，循环就结束了。

pengfei2010

为什么高手都喜欢用递归函数呀？为什么  感觉递归函数如果比较复杂  会很难理解！

Lispboy

pengfei2010 发表于 2013-6-13 16:22
为什么高手都喜欢用递归函数呀？为什么  感觉递归函数如果比较复杂  会很难理解！

你在上面哪个代码里面发现了“递归”啊。

pengfei2010

Lispboy 发表于 2013-6-13 17:29
你在上面哪个代码里面发现了“递归”啊。

(XD::List:N- (XD::List:N+ lst (1- n)) (1+ (- m n)))  这句话不就是递归吗？

Lispboy

pengfei2010 发表于 2013-6-13 20:20
(XD:ist:N- (XD:ist:N+ lst (1- n)) (1+ (- m n)))  这句话不就是递归吗？

那都是普通的函数调用，不是递归。

QiaoCheng

那是两个不同的函数

pengfei2010

Lispboy 发表于 2013-6-13 20:28
那都是普通的函数调用，不是递归。

啊！！！那你的子函数怎么不贴出来 啊， 对了 据说lisp有7个亲儿子  请问哪几个啊，您知道吗？

Lispboy

pengfei2010 发表于 2013-6-13 22:44
啊！！！那你的子函数怎么不贴出来 啊， 对了 据说lisp有7个亲儿子  请问哪几个啊，您知道吗？

以后凡是发现我写的代码，里面的子函数都去“函数发布”里面找：

http://bbs.xdcad.net/forum.php?m ... sortid&sortid=1

或者看我自己整理的函数帖子：

http://bbs.xdcad.net/thread-668839-1-1.html

我看你也天天来论坛啊，这几个函数帖子是紧跟着发布的啊，这都没看见。

pengfei2010

Lispboy 发表于 2013-6-13 22:52
以后凡是发现我写的代码，里面的子函数都去“函数发布”里面找：

http://bbs.xdcad.net/forum.php?mod ...

哦，以后去的空间看哈， 说说lisp的亲儿子呗

Lispboy

pengfei2010 发表于 2013-6-13 23:18
哦，以后去的空间看哈， 说说lisp的亲儿子呗

他的亲儿子，你找LL-J长老问。

q3_2006

是不是也得来个不包括m n的！