关于长表中嵌套函数、mapcar和foreach 的效率

xugaoming23

原以为foreach是执行效率最低的，结果不知道怎么回事，在循环8000次时，嵌套函数、mapcar都卡死了，只有foreach存活。

2.    
   
3.   (defun XGM:timestart(  )
   
4.     (setq *t1* (getvar "DATE"))
   
5.   )
   
6.   (defun XGM:timeend( / s)
   
7.     (print (rtos (* 86400.0 (- (setq s (- (getvar "date") *t1*)) (fix s))) 2 2))
   
8.   )
   
9.   (setq *tt (getint "请输入循环次数:"))
   
10.   (defun c:t1 (/ i j lst11 lst22 math:lstcj)
    
11.     ;嵌套函数
    
12.     (defun math:lstcj(lst1 lst2)
    
13.       (if lst2  
    
14.         (math:lstcj (vl-remove (car lst2) lst1) (cdr lst2))
    
15.         lst1  
    
16.       )   
    
17.     )  
    
18.     (setq i 0 j 5 lst11 nil lst22  nil)
    
19.     (repeat *tt
    
20.       (setq lst11 (cons (setq i (1+ i )) lst11 ))
    
21.       (setq lst22 (cons (setq j (1+ j )) lst22 ))
    
22.     )
    
23.     (XGM:timestart)
    
24.     (math:lstcj lst11 lst22)
    
25.     (XGM:timeend)
    
26.   )
    
27.   
    
28.   (defun c:t2(/ i j lst11 lst22 math:lstcj)
    
29.     ;mapcar形式
    
30.     (defun math:lstcj(lst1 lst2)
    
31.       (mapcar '(lambda (x)(setq lst1 (vl-remove x lst1))) lst2)
    
32.       lst1
    
33.     )
    
34.     (setq i 0 j 5 lst11 nil lst22  nil)
    
35.     (repeat *tt
    
36.       (setq lst11 (cons (setq i (1+ i )) lst11 ))
    
37.       (setq lst22 (cons (setq j (1+ j )) lst22 ))
    
38.     )
    
39.     (XGM:timestart)
    
40.     (math:lstcj lst11 lst22)
    
41.     (XGM:timeend)
    
42.   )
    
43.   
    
44.   (defun c:t3(/ i j lst11 lst22 math:lstcj)
    
45.     ;foreach形式
    
46.     (defun math:lstcj(lst1 lst2)
    
47.       (foreach x lst2 (setq lst1 (vl-remove x lst1)))
    
48.     )
    
49.     (setq i 0 j 5 lst11 nil lst22  nil)
    
50.     (repeat *tt
    
51.       (setq lst11 (cons (setq i (1+ i )) lst11 ))
    
52.       (setq lst22 (cons (setq j (1+ j )) lst22 ))      
    
53.     )
    
54.     (XGM:timestart)
    
55.     (math:lstcj lst11 lst22)
    
56.     (XGM:timeend)
    
57.   )  

   <br />   (defun XGM:timestart(  )<br />     (setq *t1* (getvar "DATE"))<br />   )<br />   (defun XGM:timeend( / s)<br />     (print (rtos (* 86400.0 (- (setq s (- (getvar "date") *t1*)) (fix s))) 2 2))<br />   )<br />   (setq *tt (getint "请输入循环次数:"))<br />   (defun c:t1 (/ i j lst11 lst22 math:lstcj)<br />     ;嵌套函数<br />     (defun math:lstcj(lst1 lst2)<br />       (if lst2  <br />         (math:lstcj (vl-remove (car lst2) lst1) (cdr lst2))<br />         lst1  <br />       )    <br />     )  <br />     (setq i 0 j 5 lst11 nil lst22  nil)<br />     (repeat *tt<br />       (setq lst11 (cons (setq i (1+ i )) lst11 ))<br />       (setq lst22 (cons (setq j (1+ j )) lst22 ))<br />     )<br />     (XGM:timestart)<br />     (math:lstcj lst11 lst22)<br />     (XGM:timeend)<br />   )<br />   <br />   (defun c:t2(/ i j lst11 lst22 math:lstcj)<br />     ;mapcar形式<br />     (defun math:lstcj(lst1 lst2)<br />       (mapcar '(lambda (x)(setq lst1 (vl-remove x lst1))) lst2)<br />       lst1<br />     )<br />     (setq i 0 j 5 lst11 nil lst22  nil)<br />     (repeat *tt<br />       (setq lst11 (cons (setq i (1+ i )) lst11 ))<br />       (setq lst22 (cons (setq j (1+ j )) lst22 ))<br />     )<br />     (XGM:timestart)<br />     (math:lstcj lst11 lst22)<br />     (XGM:timeend)<br />   )<br />   <br />   (defun c:t3(/ i j lst11 lst22 math:lstcj)<br />     ;foreach形式<br />     (defun math:lstcj(lst1 lst2)<br />       (foreach x lst2 (setq lst1 (vl-remove x lst1))) <br />     )<br />     (setq i 0 j 5 lst11 nil lst22  nil)<br />     (repeat *tt<br />       (setq lst11 (cons (setq i (1+ i )) lst11 ))<br />       (setq lst22 (cons (setq j (1+ j )) lst22 ))      <br />     )<br />     (XGM:timestart)<br />     (math:lstcj lst11 lst22)<br />     (XGM:timeend)<br />   )  

jun353835273

(mapcar '(lambda (x)(setq lst1 (vl-remove x lst1))) lst2)
这一句就会产生一个8000个元素的表，每个元素有8000个元素。一共有6400万个元素。非常可观的数据量
所以mapcar还是要分情况使用。

xugaoming23

jun353835273 发表于 2020-4-21 13:12
(mapcar '(lambda (x)(setq lst1 (vl-remove x lst1))) lst2)
这一句就会产生一个8000个元素的表，每个元 ...

明白了，嵌套和mapcar 在内存中会产生很多隐形变量，没有处理完毕时不会回收这些隐形变量，而repeat处理一句及时回收了内存空间，看来简简单单的写程序效率才高，被以往的那些经验欺骗了

jun353835273

xugaoming23 发表于 2020-4-22 00:24
明白了，嵌套和mapcar 在内存中会产生很多隐形变量，没有处理完毕时不会回收这些隐形变量，而repeat处理 ...

如果要使用返回后的表，mapcar可以偷懒，直接就得到返回值
用循环还得保存表。没有测试这种情况那种效率高。

xugaoming23

jun353835273 发表于 2020-4-22 23:28
如果要使用返回后的表，mapcar可以偷懒，直接就得到返回值
用循环还得保存表。没有测试这种情况那种效率 ...

谢谢解答，大致理解了 mapcar的便捷以及注意情况

tryhi

你这个就求差集的场景你用mapcar？怕不是在搞笑吧。
可以肯定的跟你讲，mapcar的执行效率至少是foreach的2倍以上
你说的嵌套函数术语叫递归，递归优点是写法简单，很多复杂的算法用递归都非常简便的解决，但是资源开销大，在CAD还有一个2万层的限制，超过2万则奔溃，除非递归用得很娴熟，为了缩短写代码的时间，不然不是很推荐lisp用递归