用积和式解决数论问题（mathematica）

1、把这8个集合视为s的元素：s = {{3,5,6,8,7},{7},{1,4,8,5,7},{3,5,6,2},{1,3,6},{ 5,7}, {1,2,3,6},{3,5,8}} ;

3、计算这个矩阵的积和式，就是答案。Permanent[m]

5、去掉有重复元素的情形，只剩下9种情况，下面把9种情况列举出来：Select[Tuples[s],DuplicateFreeQ]//Column