wolfram-mathematica - ネストされたリスト内のすべてのリストの要素を削除します

Question

ネストされたリスト内のすべてのリストの 3 番目の要素を削除したいと思います。

例えば、

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

だからそれはなるだろう

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

どうすればいいですか？

Answer 1

さらに別：

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

または、より長い可能性のあるサブリストから 3 番目の要素のみを削除する場合は、次のようにします。

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

Answer 2

それを行う方法はたくさんあります。

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]}]}]