Perfect shuffle: Difference between revisions
m
→{{header|Mathematica}}
Alextretyak (talk | contribs) m (→{{header|11l}}) |
|||
Line 1,515:
10000 300</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>shuffle[deck_] := Apply[Riffle, TakeDrop[deck, Length[deck]/2]];
shuffleCount[n_] := Block[{count=0}, NestWhile[shuffle, shuffle[Range[n]], (count++; OrderedQ[#] )&];count];
|