任意数据穷举组合速度很快

dcl1214

1. (DEFUN $qiong-ju$ (lst / a b lst2 lst-new)
   
2.           ;调用示例($qiong-ju$ '("A" "B" "C" "D" "E" "F"))
   
3.   (setq lst (vl-remove nil lst))
   
4.   (WHILE (SETQ A (CAR LST))
   
5.     (SETQ LST2 (CDR LST))
   
6.     (WHILE (SETQ B (CAR LST2))
   
7.       (SETQ LST-NEW (CONS (CONS A B) LST-NEW))
   
8.       (SETQ LST2 (CDR LST2))
   
9.     )
   
10.     (SETQ LST (CDR LST))
    
11.   )
    
12.   (SETQ LST-NEW (REVERSE LST-NEW))
    
13. )

(DEFUN $qiong-ju$ (lst / a b lst2 lst-new)<br />           ;调用示例($qiong-ju$ '("A" "B" "C" "D" "E" "F"))<br />   (setq lst (vl-remove nil lst))<br />   (WHILE (SETQ A (CAR LST))<br />     (SETQ LST2 (CDR LST))<br />     (WHILE (SETQ B (CAR LST2))<br />       (SETQ LST-NEW (CONS (CONS A B) LST-NEW))<br />       (SETQ LST2 (CDR LST2))<br />     )<br />     (SETQ LST (CDR LST))<br />   )<br />   (SETQ LST-NEW (REVERSE LST-NEW))<br /> )

nzl1116

1. (defun $qiong-ju$ (lst / a lst2 rLst)
   
2.   (setq rLst nil)
   
3.   (while (setq lst2 (cdr lst))
   
4.     (setq a (car Lst))
   
5.     (foreach b lst2
   
6.       (setq rLst (cons (cons a b) rLst))
   
7.     )
   
8.     (setq lst (cdr lst))
   
9.   )
   
10.   (reverse rLst)
    
11. )

(defun $qiong-ju$ (lst / a lst2 rLst)<br />   (setq rLst nil)<br />   (while (setq lst2 (cdr lst))<br />     (setq a (car Lst))<br />     (foreach b lst2<br />       (setq rLst (cons (cons a b) rLst))<br />     )<br />     (setq lst (cdr lst))<br />   )<br />   (reverse rLst)<br /> )

gzcsun

nzl1116 发表于 2024-5-5 10:21

foreach是精简一点，不过while是比foreach快一点。

mahuan1279

一句代码的事。

wuyunpeng888

什么叫任意数据穷举组合？随机组合吗？穷举速度最慢没有随机抽取快，用字典或集合做随机抽取，n个数抽取n次

hubeiwdlue

gzcsun 发表于 2024-5-5 10:50
foreach是精简一点，不过while是比foreach快一点。

不都是循环吗？次数也一样，速度还有差别？

aws

有没有具体的应用场景呢，举个例子