Mind boggling card trick: Difference between revisions
m
→{{header|Mathematica}}
Line 1,153:
</pre>
=={{header|Mathematica}}/{{header|Wolfram Language}}==
<lang Mathematica>s = RandomSample@Flatten[{Table[0, 26], Table[1, 26]}]
g = Take[s, {1, -1, 2}]
| |||