Mathematica 如何列出相同元素所在的子表集?

Mathematica 如何列出相同元素所在的子表集?

如何列出相同元素所在的子表集?

例如: 输出s1中元素{a,b,c}所属的子表

输入: s1={{a ,e},{d,c,a,b},{d,e,b,g},{g,a,c,e}};

s2={a,b,c};

输出: s3={{1,2,4},{2,3},{2,4}}

对于s2中{a,b,c}, 因为:

a出现在s1第1个子表和第2个子表和第4个子表中,因此a等于{1,2,4};

b出现在s1第2个子表和第3个子表中,因此b等于{2,3};

c出现在s1第2个子表和第4个子表中,因此c等于{2,4};

所以: s3={{1,2,4},{2,3},{2,4}}

收藏：
0
点赞数：
0
评论数：
0
1个回答

用

Map[Position[s1, #][[All, 1]] &, s2]

Position[s1, #][[All, 1]] & 能够找出 s1 中某个元素出现的位置,将其作用于 s2 中的每一个元素,得到 {{1,2,4},{2,3},{2,4}}

点赞数：
0
评论数：
0
相关问题
关注公众号
一起学习，一起涨知识