对嵌套列表中的列表进行排序

Question

我有一个嵌套列表： {{9, 8, 7}, {8, 7, 6}, {7, 6, 5}, {6, 5, 4}, {5, 4, 3}, {4, 3, 2}, {3, 2, 1}}

我需要对列表中的列表进行排序以创建：

{{7, 8, 9}, {6, 7, 8}, {5, 6, 7}, {4, 5, 6}, {3, 4, 5}, {2, 3, 4}, (1, 2, 3}}

我该怎么做？

Answer 1

您需要Map函数，该函数将函数应用于列表的每个元素。

即Map[f, {1, 2, 3}]给出{f[1], f[2], f[3]}。

在这种情况下，您可以使用Map[Sort, list]。 Map还有一个中缀运算符/@：

In[1]:= Map[Sort, {{9, 8, 7}, {8, 7, 6}, {7, 6, 5}, {6, 5, 4}, 
  {5, 4, 3}, {4, 3, 2}, {3, 2, 1}}]

Out[1]= {{7, 8, 9}, {6, 7, 8}, {5, 6, 7}, {4, 5, 6},
  {3, 4, 5}, {2, 3, 4}, {1, 2, 3}}

In[2]:= Sort /@ {{9, 8, 7}, {8, 7, 6}, {7, 6, 5}, {6, 5, 4}, 
  {5, 4, 3}, {4, 3, 2}, {3, 2, 1}}

Out[2]= {{7, 8, 9}, {6, 7, 8}, {5, 6, 7}, {4, 5, 6}, 
  {3, 4, 5}, {2, 3, 4}, {1, 2, 3}}

Answer 2

请注意，Ordering也可以正常工作

lst = {{9, 8, 7}, {8, 7, 6}, {7, 6, 5}, {6, 5, 4}, {5, 4, 3}, {4, 3, 
    2}, {3, 2, 1}};
Map[#[[Ordering[#]]] &, lst]

但是对于这种类型的例子，这种方法比Map / Sort

慢

lst2 = RandomInteger[100, {10^5, 3}];
Map[Sort, lst2]; // Timing
Map[#[[Ordering[#]]] &, lst2]; // Timing

{0.175955，Null}

{1.02087，Null}

按位置排序

可能非常有用

lst3 = {{a1, 4, c1}, {a2, 3, c2}, {b3, 1, d3}, {e4, 2, f4}};
lst3[[Ordering[lst3[[All, -2]]]]] // MatrixForm