找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 3341|回复: 15

[] 返回表第n---m之间的元素(包括m n)

[复制链接]

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-6-12 22:24:03 | 显示全部楼层 |阅读模式
函数发布
函数名称: XD::List:N-M
调用格式: ( XD::List:N-M lst n m)
参数说明: lst ---- 表
m,n ---- 序号
说明: n 大于表长,到最后
m 最小从1开始
返回值:
函数简介: 返回表第n---m之间的元素(包括m n)
函数来源: 原创
函数作者: Lispboy
适用版本: 不限 
最后更新时间: 2013-06-12
备注: 命令: !b
(2334 556 33 44 66 77 22)

命令: (XD::List:N-M B 3 5)
(33 44 66)
演示图片: -

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

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

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

  1. ;|
  2.     返回表第m---n之间的元素(包括m n)
  3.     表从1开始计数

  4.     参数:
  5.       lst ----  表
  6.       m,n ----  序号

  7.     说明: n 大于表长,到最后
  8.            m 最小从1开始
  9. |;
  10. (defun XD::List:N-M(lst n m)
  11.    (if (> m (setq l (length lst)))
  12.       (setq m l)
  13.    )
  14.    (if (< n 1)
  15.       (setq n 1)
  16.    )
  17.    (XD::List:N- (XD::List:N+ lst (1- n)) (1+ (- m n)))
  18. )

评分

参与人数 1D豆 +5 收起 理由
xshrimp + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2013-6-12 22:54:32 | 显示全部楼层
跟着楼主练习VL函数!呵呵
  1. ;;测试: (T6 3 5 '(2334 556 33 44 66 77 22))==> (33 44 66)
  2. (DEFUN T6 (n m LST / A)
  3. (setq A 0)
  4. (vl-remove-if-not '(lambda(x)(setq A (1+ A)) (<= n A m) ) lst)
  5. )

点评

VL-REMOVE-IF 要遍历所有表的,我写的函数,找到后,循环就结束了。  详情 回复 发表于 2013-6-12 23:57
高!一个表达式 = Or 两个  发表于 2013-6-12 22:58

评分

参与人数 1D豆 +5 收起 理由
xshrimp + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 1 反对 0

使用道具 举报

发表于 2013-6-12 22:53:45 | 显示全部楼层
[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]

点评

您的也高! 我都没想到vl-remove-if也可以。  发表于 2013-6-12 23:01

评分

参与人数 1D豆 +5 收起 理由
xshrimp + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

 楼主| 发表于 2013-6-12 23:57:18 | 显示全部楼层
wowan1314 发表于 2013-6-12 22:54
跟着楼主练习VL函数!呵呵

VL-REMOVE-IF 要遍历所有表的,我写的函数,找到后,循环就结束了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3256个

财富等级: 富可敌国

发表于 2013-6-13 16:22:21 | 显示全部楼层
为什么高手都喜欢用递归函数呀?为什么  感觉递归函数如果比较复杂  会很难理解!

点评

你在上面哪个代码里面发现了“递归”啊。  详情 回复 发表于 2013-6-13 17:29
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

 楼主| 发表于 2013-6-13 17:29:36 | 显示全部楼层
pengfei2010 发表于 2013-6-13 16:22
为什么高手都喜欢用递归函数呀?为什么  感觉递归函数如果比较复杂  会很难理解!

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

点评

(XD:ist:N- (XD:ist:N+ lst (1- n)) (1+ (- m n))) 这句话不就是递归吗?  详情 回复 发表于 2013-6-13 20:20
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3256个

财富等级: 富可敌国

发表于 2013-6-13 20:20:49 | 显示全部楼层
Lispboy 发表于 2013-6-13 17:29
你在上面哪个代码里面发现了“递归”啊。

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

点评

那都是普通的函数调用,不是递归。  详情 回复 发表于 2013-6-13 20:28
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

 楼主| 发表于 2013-6-13 20:28:52 | 显示全部楼层
pengfei2010 发表于 2013-6-13 20:20
(XD:ist:N- (XD:ist:N+ lst (1- n)) (1+ (- m n)))  这句话不就是递归吗?

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

点评

啊!!!那你的子函数怎么不贴出来 啊, 对了 据说lisp有7个亲儿子 请问哪几个啊,您知道吗?  详情 回复 发表于 2013-6-13 22:44
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-13 20:30:09 | 显示全部楼层
那是两个不同的函数
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3256个

财富等级: 富可敌国

发表于 2013-6-13 22:44:05 | 显示全部楼层
Lispboy 发表于 2013-6-13 20:28
那都是普通的函数调用,不是递归。

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

点评

以后凡是发现我写的代码,里面的子函数都去“函数发布”里面找: http://bbs.xdcad.net/forum.php?mod=forumdisplay&fid=14&filter=sortid&sortid=1 或者看我自己整理的函数帖子: http://bbs.xdcad.net/th  详情 回复 发表于 2013-6-13 22:52
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

 楼主| 发表于 2013-6-13 22:52:00 | 显示全部楼层
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

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

点评

哦,以后去的空间看哈, 说说lisp的亲儿子呗  详情 回复 发表于 2013-6-13 23:18
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 3256个

财富等级: 富可敌国

发表于 2013-6-13 23:18:08 | 显示全部楼层
Lispboy 发表于 2013-6-13 22:52
以后凡是发现我写的代码,里面的子函数都去“函数发布”里面找:

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

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

点评

他的亲儿子,你找LL-J长老问。  详情 回复 发表于 2013-6-13 23:39
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

 楼主| 发表于 2013-6-13 23:39:40 | 显示全部楼层
pengfei2010 发表于 2013-6-13 23:18
哦,以后去的空间看哈, 说说lisp的亲儿子呗

他的亲儿子,你找LL-J长老问。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2476个

财富等级: 金玉满堂

发表于 2013-6-17 08:30:15 | 显示全部楼层
是不是也得来个不包括m n的!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-23 20:47 , Processed in 0.409835 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表