消除嵌套列表中每个列表的元素

Question

我想消除嵌套列表中每个列表的第三个元素。

，例如，

    lst = { {1, 0, 0}, {1, 1, 1}, {1, 1, 4} }

所以它会成为

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

我该怎么做？

Answer 1

很多方法可以做到这一点，例如

lst = {{1, 0, 0}, {1, 1, 1}, {1, 1, 4}};

lst = lst[[All, {1, 2}]]

  

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

或者

lst = Transpose[Most[Transpose[lst]]]

或者，没有转置

lst = MapThread[Delete, {lst, Table[3, {Length[lst]}]}]

Answer 2

另一个：

lst = #[[1;;2]] & /@ lst

或者如果您只想从可能更长的子列表中删除第三个元素：

lst = Drop[#,{3}]& /@ lst