Question

Mathematica 如何取出元素恰好出现k次的子表？

如何取出元素恰好出现k次的子表？
例如取出子表中每个元素恰好出现2次的子表：
输入： g1={{{b,c},{b,d},{c,d}},{{b,c},{b,c}},{{a,b,c},{a,d}}};
g2=k；
输出：g3={{{b,c},{b,d},{c,d}},{{b,c},{b,c}}};

因为g1第1个子表{{b,c},{b,d},{c,d}}中每个元素恰好出现2次，因此g3[[1]]={{b,c},{b,d},{c,d}},其余类推。
上面一个笔错误,g2=k应该是g2=2, 即:
输入: g1={{{b,c},{b,d},{c,d}},{{b,c},{b,c}},{{a,b,c},{a,d}}};
g2=2；
输出: g3={{{b,c},{b,d},{c,d}},{{b,c},{b,c}}};

Answer 1

In[67]:= g1 = {{{b, c}, {b, d}, {c, d}}, {{b, c}, {b, c}}, {{a, b,
c}, {a, d}}};
g2 = 2;
g3 = Select[g1, And @@ (# == g2 & /@ (Last /@ Tally@Flatten@#)) &]

Out[69]= {{{b, c}, {b, d}, {c, d}}, {{b, c}, {b, c}}}