巧妙地提取嵌套列表中的元素（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]]]]