在 Mathematica 中打乱列表

Question

在 Mathematica 中打乱长列表的最佳/最简单方法是什么？

Answer 1

RandomSample[list]

是的，就是这么简单。至少从版本 6 开始。

在引入 RandomSample 之前，人们可能会使用：

#[[ Ordering[Random[] & /@ #] ]] & @ list

Answer 2

在引入 RandomSample 之前，我大量使用了下面的 MathGroup 函数，尽管 RandomSample 在我的机器上至少快了一个数量级。

In[128]:= n = 10;
          set = Range@n

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

In[130]:= Take[set[[Ordering[RandomReal[] & /@ Range@n]]], n]

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

除了性能之外的其他问题是，如果相同的随机实数被击中两次（尽管可能，但不太可能），排序不会以随机顺序给出这两个。

Answer 3

目前我使用的

list[[PermutationList@RandomPermutation@Length[list]]]

是 Mathematica 8。Combinatorica 也有一个 RandomPermutation 函数（早期版本）。

我正在寻找其他/更好的解决方案（如果有）。