wolfram-mathematica - 在 Mathematica 中删除嵌套列表

Question

考虑 :

Tuples[Range[1, 3], 2]

我想根据以下列表删除一些子列表:

sublistToTemove = {1,2,3,6,8}

所需的输出:

{2, 1}, {2, 2}, {3, 1}

对应列表的第4、5、7个元素。

我试过 Drop、Case、Select 都没有成功，一定是遗漏了什么。

Answer 1

鉴于您的 list :

In[2]:= lst = Tuples[Range[1, 3], 2]

Out[2]= {{1, 1}, {1, 2}, {1, 3}, {2, 1}, {2, 2}, {2, 3}, {3, 1}, {3,2}, {3, 3}}

和

In[5]:= sublistToTemove = {1, 2, 3, 6, 8}

Out[5]= {1, 2, 3, 6, 8}

这里有2种方法:

In[6]:= Delete[lst, List /@ sublistToTemove]

Out[6]= {{2, 1}, {2, 2}, {3, 1}, {3, 3}}

In[7]:= lst[[Complement[Range[Length[lst]], sublistToTemove]]]

Out[7]= {{2, 1}, {2, 2}, {3, 1}, {3, 3}}