Question

这是关于在Mathematica中重新排列嵌套列表部分的问题我有一个嵌套的List：
DatenList = {{1, {100, 200}}, {2, {101, 201}}, {3, {102, 202}}};
并希望获得另一个列表，如
{{1,100},{2,101}}

是否有比n更简洁的方式 temp = DatenList[[1 ;; 2, 1]]; temp2 = DatenList[[1 ;; 2, 2]][[;; , 1]]; temp = {temp}~Join~{temp2}; finalList = Transpose[temp]
产量为 {{1, 100}, {2, 101}}

Answer 1

temp2 = DatenList[[1 ;; 2, 2]][[;; , 1]]

可以缩写为

temp2 = DatenList[[1 ;; 2, 2, 1]]

否则，整个操作可以通过以下几种方式完成： -

finalList = {#1, First[#2]} & @@@ DatenList[[1 ;; 2]]

finalList = DatenList[[1 ;; 2]] /. {a_Integer, {b_, _}} :> {a, b}

finalList = Replace[DatenList[[1 ;; 2]], {a_, {b_, _}} :> {a, b}, 1]

finalList = MapThread[{#1, First[#2]} &, Transpose[DatenList[[1 ;; 2]]]]

嵌套列表中元素的整齐提取（Mathematica）

1 个答案: