Question

Mathematica 如何把这类相匹配的元素提出来组成表？

如何把这类相匹配的元素提出来组成表？
如何把每个子表中与某个数匹配的参数提出来组成表？例如：
输入：s1 = {{x1 -> 1, x2 -> 2, x3 -> 2, x4 -> 1, x5 -> 2}, {x1 -> 1, x2 -> 2, x3 -> 1, x4 -> 2, x5 -> 2}, {x1 -> 2, x2 -> 2, x3 ->2, x4 -> 1, x5 -> 1}, {x1 -> 1, x2 -> 1, x3 -> 0, x4 ->3, x5 -> 1}};
X=1;
输出:s2={{ x1, x4}, {x1, x3}, { x4, x5}, {x1, x2, x5}};
上例是把所有等于1的参数各自提出来组成的表。
谢谢！

Answer 1

Extract[{x1, x2, x3, x4, x5}, #] & /@ (Position[{x1, x2, x3, x4, x5} /. #, X] & /@ s1)