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

Question

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

有没有比
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]]]]