Wolfram Mathematica如何获取列表符合条件元素的索引并匹配对应元素？

当然有办法解决这个问题！在Mathematica里，我们可以通过几个内置函数轻松实现你的需求，我结合你的例子详细说明：

方法一：先获取索引，再提取对应元素 #

如果你需要先拿到第一个列表中符合条件元素的索引，再用这个索引去提取第二个列表的元素，可以用Position函数配合Flatten和Part（也就是[[ ]]）来完成：

1. 获取偶数元素的索引：
   用Position函数查找第一个列表中所有偶数的位置，代码如下：

   indices = Flatten[Position[{2, 3, 4, 5}, _?EvenQ]]
   

   这里_?EvenQ是用来匹配偶数的模式，Position会返回嵌套的位置列表{{1}, {3}}，再用Flatten把它转成你需要的一维列表{1, 3}。

2. 提取第二个列表的对应元素：
   拿到索引后，直接用索引访问第二个列表即可：

   secondList = {s1, s2, s3, s4};
   selectedElements = secondList[[indices]]
   

   运行后就会得到{s1, s3}。

方法二：一步到位提取元素（无需单独存索引） #

如果你的最终目标是提取第二个列表的对应元素，不需要单独保留索引，那用Pick函数会更高效——它可以直接根据第一个列表的条件筛选第二个列表的元素：

Pick[{s1, s2, s3, s4}, {2, 3, 4, 5}, _?EvenQ]

运行这段代码会直接返回{s1, s3}，省去了单独处理索引的步骤。

补充：处理重复元素的情况 #

如果第一个列表中有重复的符合条件的元素，这两个方法也能正常工作。比如第一个列表是{2, 2, 3, 4}，那么：

• Position会返回{{1}, {2}, {4}}，Flatten后是{1, 2, 4}；
• Pick会直接提取第二个列表的{s1, s2, s4}，完全符合预期。

内容的提问来源于stack exchange，提问作者Mateusz Stępniak