点集排列组合问题
本帖最后由 87282374 于 2024-3-17 13:32 编辑某个组合进行全排列，把集合中元素的所有按照一定的顺序排列起来，使用P(n, n) = n!表示n个元素全排列的个数。例如：{1, 2, 3}的全排列为：123；132；213；231；312；321；共6个，即3！=3*2*1=6。首先取一个元素，例如取出了1，那么就还剩下{2, 3}。然后再从剩下的集合中取出一个元素，例如取出2，那么还剩下{3}。以此类推，把所有可能的情况取一遍，就是全排列了，如图：将数组看为一个集合，将集合分为两部分：0~s和s~e，其中0~s表示已经选出来的元素，而s~e表示还没有选择的元素。perm(set, s, e){ 顺序从s~e中选出一个元素与s交换（即选出一个元素） 调用perm(set, s + 1, e) 直到s>e，即剩余集合已经为空了，输出set}请路过的高手指点一下！
本帖最后由 kucha007 于 2024-3-17 16:57 编辑
类似这样？我猜你需要的是K:Perm4Lst 排列
;获取所有元素只出现一次的表@Kucha
(defun K:NoSameLst (Lst / TmpLst)
(while Lst
(if (not (member (car Lst) TmpLst))
(setq TmpLst (append TmpLst (list (car Lst))))
)
(setq Lst (vl-remove (car Lst) Lst))
)
TmpLst
)
;从TgtLst取Num个元素进行排列@Kucha
(defun K:Perm4Lst (TgtLst Num)
(if (setq TgtLst (K:NoSameLst TgtLst))
(cond
((= Num 1)(mapcar '(lambda (x) (list x)) TgtLst))
((> Num (length TgtLst)) (list TgtLst))
((and (> Num 1) (<= Num (length TgtLst)))
(apply
'append
(mapcar
'(lambda (x)
(mapcar
'(lambda (y) (cons x y))
(K:Perm4Lst (vl-remove x TgtLst) (- Num 1))
)
)
TgtLst
)
)
)
)
)
)
;从TgtLst取Num个元素进行组合@Kucha
(defun K:Comb4Lst (TgtLst Num)
(if (setq TgtLst (K:NoSameLst TgtLst))
(cond
((= Num 1)(mapcar '(lambda (x) (list x)) TgtLst))
((> Num (length TgtLst)) (list TgtLst))
((and (> Num 1) (<= Num (length TgtLst)))
(apply
'append
(mapcar
'(lambda (x)
(mapcar
'(lambda (y) (cons x y))
(K:Comb4Lst (vl-remove x TgtLst) (- Num 1))
)
)
(vl-remove-if '(lambda (x) (member x (cdr TgtLst))) TgtLst)
)
)
)
)
)
)
;用法：
(setq TgtLst '(1 2 3))
(K:Perm4Lst TgtLst 2)
(K:Comb4Lst TgtLst 2)
kucha007 发表于 2024-3-17 16:55
类似这样？我猜你需要的是K:Perm4Lst 排列
感谢 数学中的排列组合嘛 递归的，计算量大时，速度慢些 看不懂逻辑关系。
页:
[1]