排列组合问题

sysu-沼泽 · 发表于 2019-6-3 13:30

本帖最后由 sysu-沼泽于 2019-6-4 08:53 编辑

把n个可重复的元素有次序地放入m个盒子中，要求每个盒子只可以装1个元素，且盒子从大到小排列。求排列的解法。

(setq lst '(3 2 1)) ;元素共3个，n=3
;;; 盒子数目m=6，想要得出的结果如下所示
(setq data '( (3 3 3 3 3 3) (3 3 3 3 3 2)
(3 3 3 3 3 1)
(3 3 3 3 2 2)
(3 3 3 3 2 1)
(3 3 3 3 1 1)
(3 3 3 2 2 2)
(3 3 3 2 2 1)
(3 3 3 2 1 1)
(3 3 3 1 1 1)
(3 3 2 2 2 2)
(3 3 2 2 2 1)
(3 3 2 2 1 1)
(3 3 2 1 1 1)
(3 3 1 1 1 1)
(3 2 2 2 2 2)
(3 2 2 2 2 1)
(3 2 2 2 1 1)
(3 2 2 1 1 1)
(3 2 1 1 1 1)
(3 1 1 1 1 1)
(2 2 2 2 2 2)
(2 2 2 2 2 1)
(2 2 2 2 1 1)
(2 2 2 1 1 1)
(2 2 1 1 1 1)
(2 1 1 1 1 1)
(1 1 1 1 1 1)
))

自贡黄明儒 · 发表于 2019-6-3 15:47

3个数中取5个，那么另外2个数是什么取法，这个只有楼主自己知道吧？

mahuan1279 · 发表于 2019-6-3 16:21

数据量不大时，可以采用递归法。

nzl1116 · 发表于 2019-6-3 20:47

把问题简化，把三个数3 2 1改成2 1 0，现在的问题就是简化成5位的三进制的问题，问题就清楚了。

nzl1116 · 发表于 2019-6-3 20:52

本帖最后由 nzl1116 于 2019-6-3 22:00 编辑

(defun func (lst n)
  (cond
((not lst) nil)
((= n 0) '(nil))
(T
   (append
   (mapcar
  (function (lambda (x) (cons (car lst) x)))
  (func lst (1- n))
   )
   (func (cdr lst) n)
   )
)
  )
)

sysu-沼泽 · 发表于 2019-6-4 08:45

自贡黄明儒发表于 2019-6-3 15:47
3个数中取5个，那么另外2个数是什么取法，这个只有楼主自己知道吧？

数字是可以重复的~

sysu-沼泽 · 发表于 2019-6-4 08:55

nzl1116 发表于 2019-6-3 20:52
(defun func (lst n)
(cond
((not lst) nil)

谢谢 nzl1116 ！递归的写法我一直不大熟，我还需继续学习:P

账号		自动登录	找回密码
密码			注册

[提问] 排列组合问题