自带函数里没有这个功能，不过可以下面一个语句实现：Map[Flatten[Position[s1, #]] &, s2]详细说明： Position[s1,a] 给出 {{1}, {2}, {3}} 与你要的格式不同，经过 Flatten 以后变成 {1, 2, 3}，写成函数的形式为 Flatten[Position[s1, #]] &，利用 Map 作用于 s2 的每一个元素上。
