找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 3142|回复: 9

[选择集] 通用堆栈数据结构---栈深度(XD::Stack:Depth)

[复制链接]

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-6-6 01:04:33 | 显示全部楼层 |阅读模式
函数发布
函数名称: XD::Stack:Depth
调用格式: (XD::Stack:Depth name)
参数说明: name ---- 栈深度
返回值: 整数
空栈为0
函数简介: 堆栈数据结构
Depth--取得栈深度
函数来源: 原创
函数作者: Lispboy
适用版本: 不限 
最后更新时间: 2013-06-06
备注: -
演示图片: -

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

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

×
游客,本帖隐藏的内容需要积分高于 50 才可浏览,您当前积分为 0


示例:

  1. 命令: (XD::STACK:LIST "Var1")
  2. ((23 45) 34)

  3. 命令: (XD::STACK:DEPTH "Var1")
  4. 2


评分

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

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2013-6-6 01:08:14 | 显示全部楼层
看来学 Alisp 也要转变观念,有点像 vlax-ldata-put vlax-ldata-get vlax-ldata-list 三个函数组织数据的关系

点评

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

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

 楼主| 发表于 2013-6-6 01:48:33 | 显示全部楼层
本帖最后由 Lispboy 于 2013-6-6 01:50 编辑
Free-Lancer 发表于 2013-6-6 01:08
看来学 Alisp 也要转变观念,有点像 vlax-ldata-put vlax-ldata-get vlax-ldata-list 三个函数组织数据的关 ...

LDATA和栈也不一样。 栈限制死了,最先进去的,要最后才能出来。禁止从中间取数据,要取只能取最上面的。

理解下面的图。



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

使用道具 举报

发表于 2013-6-6 07:39:47 来自手机 | 显示全部楼层
堆,桟的概念还是懂滴,只不过看到存取用了 car cdr subst忍不住说几句,"穿了马甲以为就不认识你了",开句玩笑。来自: Android客户端
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2013-6-6 08:49:27 | 显示全部楼层
Lispboy发布的这几个栈的函数,其实只是对栈进行模拟而已,实际上就是列表穿了个马甲!:lol
我们一般的做法是把数据直接赋给全局或局部变量!从效率上来说,用栈的概念来包装一下,肯定会降低效率!对于熟悉栈概念的人来说,这样写法比较容易理解,但对于不懂栈概念的人来说,反而难以理解了,不如直接赋值给变量来的直接!用栈的概念来存储数据,优点是函数定义后面可以少写些局部变量了,缺点是代码要多了,每次用完还要记得清除栈!
是否使用栈的概念,关键还是看个人写作习惯吧!

点评

没那么夸张,只不过和程序中自己定义的通用表处理函数一样,浪费不了多少代码。只是提供了个组织数据的方式,让组织全局变量概念更清晰。让LISP用户在开发中就养成一种通用程序开发的注重算法和数据结构的思维。由于  详情 回复 发表于 2013-6-6 09:01
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 51个

财富等级: 招财进宝

 楼主| 发表于 2013-6-6 09:01:23 | 显示全部楼层
Love-Lisp 发表于 2013-6-6 08:49
Lispboy发布的这几个栈的函数,其实只是对栈进行模拟而已,实际上就是列表穿了个马甲!
我们一般的做 ...

没那么夸张,只不过和程序中自己定义的通用表处理函数一样,浪费不了多少代码。只是提供了个组织数据的方式,让组织全局变量概念更清晰。让LISP用户在开发中就养成一种通用程序开发的注重算法和数据结构的思维。由于工作,先写到这。

点评

提个建议,由于Lisp语言变量名是忽略大小写的,所以变量名称我们一般很少去考虑大小写问题,为了与Lisp语言习惯对接,建议在函数中将栈名处理一下,使之能够忽略大小写!  详情 回复 发表于 2013-6-6 09:25
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 208个

财富等级: 日进斗金

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

使用道具 举报

发表于 2013-6-6 09:25:28 | 显示全部楼层
Lispboy 发表于 2013-6-6 09:01
没那么夸张,只不过和程序中自己定义的通用表处理函数一样,浪费不了多少代码。只是提供了个组织数据的方 ...

提个建议,由于Lisp语言变量名是忽略大小写的,所以变量名称我们一般很少去考虑大小写问题,为了与Lisp语言习惯对接,建议在函数中将栈名处理一下,使之能够忽略大小写!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-9-21 09:04 , Processed in 0.203489 second(s), 56 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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