wolfram-mathematica - 在 mathematica 中对另一部分的更改进行排序

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}