对于面域两两求交集的代码进行优化。

wowan1314

newer 发表于 2013-5-29 01:15
确实是把你的两层变一层了。

你还要做事啊，在一层里面，除非你什么都不做：）

我弄出来的怎么比原来的还复杂些了。

2. ;;mapcar方法-----新
   
3. ;;先变表 (1 2 3 4 5) ---> ((1 2 3 4 5)(2 3 4 5)(3 4 5)(4 5)(5))
   
4. (SETQ AA (mapcar '(lambda(x)(cons x (cdr (member x REG-LST)))) REG-LST))
   
5. (setq SS  (ssadd))
   
6. (MAPCAR        '(lambda (A)
   
7.            (SETQ Q (CAR A) AA1 (CDR A))
   
8.            (MAPCAR '(lambda (B) (TT1 Q B) ) AA1)
   
9.          )
   
10.         AA
    
11. )
    
12. ;;mapcar方法-----旧
    
13. ;|
    
14. (setq SS  (ssadd) AA REG-LST AA1 AA)
    
15. (MAPCAR        '(lambda (A)
    
16.            (SETQ AA1 (CDR AA1))
    
17.            (MAPCAR '(lambda (B) (TT1 A B) ) AA1)
    
18.          )
    
19.         AA
    
20. )
    
21. |;

;;mapcar方法-----新<br /> ;;先变表 (1 2 3 4 5) ---> ((1 2 3 4 5)(2 3 4 5)(3 4 5)(4 5)(5))<br /> (SETQ AA (mapcar '(lambda(x)(cons x (cdr (member x REG-LST)))) REG-LST))<br /> (setq SS  (ssadd))<br /> (MAPCAR        '(lambda (A)<br />            (SETQ Q (CAR A) AA1 (CDR A))<br />            (MAPCAR '(lambda (B) (TT1 Q B) ) AA1)<br />          )<br />         AA<br /> )<br /> ;;mapcar方法-----旧<br /> ;|<br /> (setq SS  (ssadd) AA REG-LST AA1 AA)<br /> (MAPCAR        '(lambda (A)<br />            (SETQ AA1 (CDR AA1))<br />            (MAPCAR '(lambda (B) (TT1 A B) ) AA1)<br />          )<br />         AA<br /> )<br /> |;

newer

wowan1314 发表于 2013-5-29 14:18
我弄出来的怎么比原来的还复杂些了。

建议你把每个表的处理的代码做一个函数里面，就清晰了。
处理的时候就不用MAPCAR了，用APPLY
对于其中的一个 pts1=(1 2 3 4 5)，你要：

1.   (apply 'func pts1)

  (apply 'func pts1)

1. (defun func(x)
   
2.    (setq e1 (car x) )  ;;源实体 1
   
3.    (mapcar '(lambda(x)(func1 e1 x)) (cdr x))  ;;;(cdr x)  目标实体表 (2 3 4 5)
   
4. )
   

(defun func(x)<br />    (setq e1 (car x) )  ;;源实体 1<br />    (mapcar '(lambda(x)(func1 e1 x)) (cdr x))  ;;;(cdr x)  目标实体表 (2 3 4 5)<br /> )<br />

因为对每个子表，你要处理的是第一个实体和其他所有实体的交、并、差等。
程序结构的代码要清晰，所有的效率问题已经转化为MAPCAR做了，其他为了增加程序的可读性和易维护性，多增加点代码不影响效率。

wowan1314

newer 发表于 2013-5-29 14:30
建议你把每个表的处理的代码做一个函数里面，就清晰了。
处理的时候就不用MAPCAR了，用APPLY
对于其中 ...

嗯！ 感谢指导

那样做程序确实有条理多了。 主要是可读和易维护。

wowan1314

其实实际工作中此程序处理的样本个数不会太多。所以用那个函数循环效率都一样。影响速度的是面域的运算。

下面这个是尽量使用MAPCAR的版本.

QiaoCheng

这种代码分析贴应该多出点，比大伙发源码好的多，再顶一次

GTJ116600

这个帖子确实要好好研究研究

cable2004

{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}{:soso_e179:}

wadff

666666666555555555555555555