Anonymous user
Best shuffle: Difference between revisions
m
→{{header|Mathematica}}
Line 1,742:
a a 1</pre>
=={{header|Mathematica}} / {{header|Wolfram Language}}==
<lang Mathematica>BestShuffle[data_] :=
Flatten[{data,First[SortBy[
|