Question

Mathematica 如何提出这些表？

如何提出这些表？例如：
输入：
s1 = {{a, b}, {a, c}, {a, d}, {b, d}, {b, e}, {c, d}, {c, e}};
s2={a,b,e};
输出一：
s3={{{a, b}, {a, c}, {a, d}}, {{a, b}, {b,d}, {b,e}},{{b, e},{c, e}}}
即从s1中提取s2中每个元素的所有关联表输出s3；a的关联表是表示含有元素a的表 ；例如a的所有关联表是{{a, b}, {a, c}, {a, d}}； b的所有 关联表是{{a, b}, {b,d}, {b,e}}；e的所有 关联表是{{b,e}, {c,e}},
下面输出二是指把s3中的a,b,c都排在前面 ：
输出二：
s3={{{a, b}, {a, c}, {a, d}}, {{b,a}, {b,d}, {b,e}},{{e,b},{e,c}}}

Answer 1

s3 = Select[s1, Function[x, MemberQ[x, #]]] & /@ s2

s3=Thread@{s2,Cases[s3[[#]],Except@s2[[#]],{2}]&/@Range@3}/.{a_,b_List}:>Map[{a,#}&,b]