mapcar等循环函数优化测试 二期代码

pengfei2010

Lispboy 发表于 2013-6-4 18:08
接下来看 foreach 的， foreach为啥慢，因为你里面entget的地方用了append， 这个地方没必要用append, 把两 ...

foreach 对表里面的每一个原子都要判断啊 ，而前面的while和repeat用（assoc 10 xxx）这样的话中间很多其他原子就跳过去了，省去很多判断时间了

Lispboy

pengfei2010 发表于 2013-6-4 18:17
(repeat num
                   (setq  lst  (cons (cdr (assoc 10 zm)) lst)  zm  (cdr ...

不是让你放到循环外面啊，是让你在循环里面只计算一次，其他用的地方用变量引用

1. (repeat (sslength ss)
   
2.              (setq zm (entget (ssname ss i)) j 0)
   
3.              (repeat num
   
4.                    (setq n10 (assoc 10 zm))
   
5.                    (setq lst (cons (cdr n10) lst) zm (cdr (member n10 zm)));不能用member函数，算法很好，不公平
   
6.                  ;------
   
7.              )
   

(repeat (sslength ss)<br />              (setq zm (entget (ssname ss i)) j 0)<br />              (repeat num <br />                    (setq n10 (assoc 10 zm))<br />                    (setq lst (cons (cdr n10) lst) zm (cdr (member n10 zm)));不能用member函数，算法很好，不公平<br />                  ;------<br />              )<br />

炫翔

首先:楼主的这个追求代码效率的精神很难得！
其实不是每个程序，都用mapcar才是最好的

最重要的一点就是循环的越多，就越慢，不管用什么

炫翔

另外 append 是个执行起来超慢的函数，
就是它是一个拉后腿的函数，不用它试试速度快了多少

Lispboy

pengfei2010 发表于 2013-6-4 18:23
foreach 对表里面的每一个原子都要判断啊 ，而前面的while和repeat用（assoc 10 xxx）这样的话中间很多其 ...

意思是你没必要，用一个FOREACH 去把entget得到的表，都组织一个大表，然后在用一个foreach去处理每个entget的表

你对测试理解错了，不是用foreach了，在里面代码就不能用assoc了
你直接

1. (foreach n ents
   
2.       (setq ed (entget n))
   
3.       (setq pts (vl-remove-if-not '(lambda(x)(= (car x) 10)) ed)
   
4.       (setq pts1 (cons pts pts1))
   
5. )
   

(foreach n ents<br />       (setq ed (entget n))<br />       (setq pts (vl-remove-if-not '(lambda(x)(= (car x) 10)) ed)<br />       (setq pts1 (cons pts pts1))<br /> )<br />

几个函数凡是取顶点的时候你都用同一个 vl-remove-if-not

你测试的是最外层那个循环结构的效率。最外层是用MAPCAR,REPEAT,WHILE，里面代码都争取一样。
我现在才理解了你说的不公平的意思，你让他们公平不就得了，除了最外面的循环不同外，里面都一样。也没必要最后的点表是所有实体顶点的表，两层表也可以((n1...nn)(m1...mn).......)，这样的表结构才符合需要，每个元素对应的是一个多段线的顶点表。 哪怕以后你希望都变成一个大顶点表，处理下即可，如果你直接到最终的大表了，需要每个多段线的顶点表的时候你怎么办？ 回不去了。

你测试的是结构的效率。
         

pengfei2010

Lispboy 发表于 2013-6-4 18:40
意思是你没必要，用一个FOREACH 去把entget得到的表，都组织一个大表，然后在用一个foreach去处理每个ent ...

明白了，谢谢你的指点啊，感觉我离高手越来越近啦 呵呵

Lispboy

pengfei2010 发表于 2013-6-4 19:28
明白了，谢谢你的指点啊，感觉我离高手越来越近啦 呵呵

那等着看你第三期的代码啊。

pengfei2010

Lispboy 发表于 2013-6-4 18:25
不是让你放到循环外面啊，是让你在循环里面只计算一次，其他用的地方用变量引用

对对对，原来是这个意思哇。。。我都没有考虑到这些细节呢

pengfei2010

炫翔 发表于 2013-6-4 18:37
首先:楼主的这个追求代码效率的精神很难得！
其实不是每个程序，都用mapcar才是最好的

开心大侠，我的初衷是想知道，影响循环函数速度的因素有哪些，我没有说mapcar最好的

pengfei2010

炫翔 发表于 2013-6-4 18:40
另外 append 是个执行起来超慢的函数，
就是它是一个拉后腿的函数，不用它试试速度快了多少

为什么都说append函数很慢呀，感觉如果只用一次还是很快的  比如(append lst1 lst2 lst3。。。stn 。。。)这样一次搞定那么多，不是很爽吗:lol   配合apply  不就ok滴啦

pengfei2010

Lispboy 发表于 2013-6-4 19:31
那等着看你第三期的代码啊。

第三期啊，行再来优化一下:lol:lol:lol

zxq0220

提高程序运行速度的方法
1、变量名称不超过六位字符；
2、能用+1函数的不用(+ x 1)，同理-1函数；
3、能在循环外运算的移到循环外；
4、能用整数的不用实数；
5、能用cons的不用append;
6、能一次计算出来不计算两次；
7、能通过函数功能过滤得到选择集的不用循环筛选；
8、能使用默认值的用默认值；
9、能通过系统变量改变绘图系统的不用命令改变；
10、能用+的不用*，能用*的不用/；

pengfei2010

zxq0220 发表于 2013-6-5 08:03
提高程序运行速度的方法
1、变量名称不超过六位字符；
2、能用+1函数的不用(+ x 1)，同理-1函数；

哇，你这些规则是怎么来的呀？官方提供的嘛？感觉太给力了！！！据说alisp有7个亲儿子，car、cdr、lambda、mapcar 另外还有哪几个呀？您知道吗？

Free-Lancer

pengfei2010 发表于 2013-6-4 19:35
为什么都说append函数很慢呀，感觉如果只用一次还是很快的  比如(append lst1 lst2 lst3。。。stn 。。。 ...

看表的长度决定是否采用 append，比如 elist 最后附加一个组码，append 既简单也好理解，
[pcode=lisp,true]
(append elist '((60 . 1)))[/pcode]
非要追求效率（这个效率也未经测试）
[pcode=lisp,true]
(reverse (cons '(60 . 1) (reverse elist)))[/pcode]
即使大量（而且这时的量也不会达到巨大）操作，两者的效率想必也可以忽略不计的，所以深入理解后哪个顺手就用哪个

434939575

受教了。对这几个函数一直比较困惑。