wolfram-mathematica - 过滤掉 Mathematica 中的子列表

Question

我是 mathematica 的新手用户。这是我的问题:

例如，我有一个嵌套列表:

 lst = {{1, 0, 0}, {0, 1, 1}, {2, 0, 1}, {1}, {0,3}}

我只想输出那些元素为 0 或 1 的子列表。上面列表的输出应该是:

{{1, 0, 0}, {0, 1, 1}, {1}}

我可以获得满足我的条件的列表:

lst /. x:{(1 | 0) ..} :> x

但是我怎样才能得到模式的反转呢？像这样:

 lst /. x:NOT{(1 | 0) ..} :> Sequence[]

这样我就可以一口气得到结果。

谢谢!

Answer 1

从...开始:

lst = {{1, 0, 0}, {0, 1, 1}, {2, 0, 1}, {1}, {0, 3}};

你可以用这个过滤:

Cases[lst, {(1 | 0) ..}]

或者通过以下任一方式获得补充:

Cases[lst, Except @ {(1 | 0) ..} ]

或者:

DeleteCases[lst, {(1 | 0) ..}]