与数学

Question

改变另一部分，我只是想知道排序：给定一个列表{{{3,1,2},{4,2,5}},{{7,1},{2,4}}}

，我想第一个组件进行排序，然后让第二组分变化的第一个广告。期望的结果是{{{1,2,3},{2,5,4}},{{1,7},{4,2}}}。

我该怎么做？非常感谢您的帮助。

Answer 1

我建议：

#[[ All, Ordering@#[[1]] ]] & /@ list 

---

这比密歇根州短艾尔，几乎是效率的两倍。

micSort = {#[[Ordering[#]]], #2[[Ordering[#]]]} & @@@ # &; 

wizSort = #[[All, Ordering@#[[1]]]] & /@ # &; 

a = RandomInteger[100, {2400, 2, 15}]; 

micSort@a === wizSort@a 
First@Timing@Do[#@a, {25}] & /@ {micSort, wizSort} 

Out[1]= True 

Out[2]= {0.453, 0.282} 

Answer 2

这里的作业安全，确保一个班轮=）

In[16]:= list={{{3,1,2},{4,2,5}},{{7,1},{2,4}}}; 

In[17]:= {#[[Ordering[#]]],#2[[Ordering[#]]]}& @@@ list 
Out[17]= {{{1,2,3},{2,5,4}},{{1,7},{4,2}}} 

发生了什么，这可能是一个更加清楚一点为：

sorter[{a_, b_}] := 
Module[{order = Ordering[a]}, 
    {a[[order]], b[[order]]} 
    ] 

In[19]:= sorter /@ list 

Out[19]= {{{1, 2, 3}, {2, 5, 4}}, {{1, 7}, {4, 2}}}