Question

Mathematica 如何得到这个组合表？

如何得到这个组合表？
1、有n个元素，有些元素可以是重复的
2、把这n个元素随机分成若干组 ，使每组内不能有相同的元素
3、且每组至少需有d1个元素,最多只能有d2个元素
例如：
输入：
s1={a1,a1,a2,a2,a3,a3,a4,a4,a5,a5,a6};
d1=2;
d2=3;
输出：s2={{a1,a2},{a1,a2,a5},{a3,a4,a6},{a3,a4,a5}}
谢谢！

Answer 1

程序是编出来了，但对Mma不是很熟，代码写得有点繁，谁给优化一下代码。