这是Mathematica中列表操作的基本问题.我有一个大型列表,其中每个元素都有以下原理图形式:{List1,List2,Number}.例如,
a = {{{1,2,3},{1,3,2},5},{{1,4,5},{1,0,2},10},{{4,5,3},{8,3,4},15}}}.
我想制作一个新列表,其中只包含每个子列表中的一些部分.例如,从每个子列表中挑出第三个元素,从上面给出{5,10,15}.或者删除第三个元素以返回{{{1,2,3},{1,3,2}},{{1,4,5},{1,0,2}},{{4,5, 3},{8,3,4}}}.
我可以使用table命令构建新列表,例如,
Table[a[[i]][[3]],{i,1,Length[a]}
但我想知道是否有一种必须更快的方法可以在大型列表上工作.