如何解决在Mathematica中删除嵌套列表
| 考虑:Tuples[Range[1,3],2]
我想基于以下列表删除一些子列表:
sublistToTemove = {1,2,3,6,8}
所需输出:
{2,1},{2,2},{3,1}
对应于列表的第4、5和7个元素。
我尝试过Drop,Case,Select都没有成功,一定是缺少了一些东西。
解决方法
根据您的清单:
In[2]:= lst = Tuples[Range[1,3],2]
Out[2]= {{1,1},{1,2},3},{2,{3,3}}
和
In[5]:= sublistToTemove = {1,2,3,6,8}
Out[5]= {1,8}
这有两种方法:
In[6]:= Delete[lst,List /@ sublistToTemove]
Out[6]= {{2,3}}
In[7]:= lst[[Complement[Range[Length[lst]],sublistToTemove]]]
Out[7]= {{2,3}}
, In[15]:= sublistToTemove = {1,8};
In[16]:= Delete[Tuples[Range[1,2],Transpose[{sublistToTemove}]]
Out[16]= {{2,3}}
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。