Question

Mathematica如何取出含有某些元素的表？

如何取出含有某些元素的表？

例如,下面从s1中取出含有s2中所有元素的表:
输入: s1={{1, 2, a}, {3, 4}, {5,b,6},{20,a,10}};
s2={a,5};
输出: s3={{1, 2, a}, {5,b,6},{20,a,10}}

Answer 1

s1 = {{1, 2, a}, {3, 4}, {5, b, 6}, {20, a, 10}}; s2 = {a, 5}; s3 =
Select[s1, # \[Intersection] s2 != {} &]