通用堆栈数据结构---入栈函数

Lispboy

wowan1314 发表于 2013-6-7 19:21
我的“树”是分叉的。 这个数据结构是笔直的，这是“棍”不是“树”。

我这是给你举的一个枝的例子，告诉你每层的时候你都能临时保存交点等数据，供以后回来的时候用。

具体些你那个程序时候，只要遇到分叉的地方，你就PUSH， 回来的时候就POP。

st788796

不管怎麽说处理就是assoc + subst ,直说这个LIST的作用比解释成堆栈更容易让广大ALISPER接受

Lispboy

wowan1314 发表于 2013-6-7 19:28
1、 （SETQ LST '(1)）
     2、（setq lst (cons 2 lst)）
         3、（setq lst (cons 3 lst)）

像我的代码里面对一个关联表的处理方式了，你这么写完不就和我一样了吗，你每个程序的时候都要写这些代码吗？

我封装的那个函数，可以需要的时候任意建，不同名字区分而已。你换个地方的时候在用一次LST2写好几次吗？以后你修改程序的时候，麻烦不，代码好懂不？写了几层后，回来你都要仔细考虑哪个地方LST3，哪个地方LST2了。

把所有的全局变量组织一个表里面。

Lispboy

st788796 发表于 2013-6-7 19:29
不管怎麽说处理就是assoc + subst ,直说这个LIST的作用比解释成堆栈更容易让广大ALISPER接受

自己是开发者，开发的是黑匣子，给使用的人接口。栈是解释那种保存后进先出数据的名而已，说的是那个思想，LISPER也应该读读编程思想，数据组织方面的资料。我这几个子函数没读过数据结构的朋友自己摸索过程，也能写出来，但是如果有点数据结构的知识，这种问题一遇到，马上就想到要堆栈的数据结构，然后堆栈的数据结构的各种实现算法都是现成的，直接用LISP就描写出来了。

有的人写程序没函数，后来人不是建议要他重复的地方写成函数吗？ 函数就是封装。让代码维护容易，效率反而不如直接都写到一起。代码维护的代价和程序提高的那点效率比，前者重要多了。

marting

呵呵，学习了。不知道别人怎么理解，我是明白了。

我保存数据的时候就用 (XD::STACK:PUSH "我宝贝1” data1)...(XD::STACK:PUSH "我宝贝N” data2)
恢复的时候就 (setq 宝贝N (XD::STACK:POP)）....(setq 宝贝1 (XD::STACK:POP))

eachy

我的理解，LZ 是想用堆栈的概念组织一个数据（表），堆也好、栈也好，全局变量也好，都没有错，对Alispe而言说这是一个全局变量，表数据的组织形式如 ((index1 alist1) (index2 alist2) ....),而且是按规则使用，这样更好理解，当然学些数据组织对编程肯定是有帮助和提高的。你用数据组织的概念理解它就是堆栈，你用Lisp的概念理解成全局变量也没错，关键是用好。

附几个以前的帖子

1 用 Ldata ，这个存储的是字串组合，修改的时候分解再组合，这个也是参考了某些专业软件的数据记录方式，它们的记录方式应该和LZ 一样，((index1 (...)) (index2 (...)) ...)，比较后没有采用这种方式，当然那时也没有堆栈的概念，不管用哪个，都要代码维护这个数据（表）的。
http://bbs.xdcad.net/forum.php?mod=redirect&goto=findpost&ptid=658127&pid=3383790
2 这是另外一个例子Ea:Begin Ea:End(纪念一下，十周年了），对这个数据的组织也仅是停留在全局变量的理解
http://www.xdcad.net/forum/forum.php?mod=viewthread&tid=57831

当然现在不系统的写程序，也不再使用上面的任何一项，临时写的也不会考虑后面的维护。

q3_2006

要慢慢消化， 还不太明白！