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