Rosetta Code

Mind boggling card trick: Difference between revisions

Page Discussion

Mind boggling card trick (view source)

Revision as of 03:53, 28 February 2022

14 bytes added ,  2 years ago
m
→‎{{header|Quackery}}: added more shuffles after watching video
m (→‎{{header|Quackery}}: added more shuffles after watching video)
Line 1,603:
discards take witheach
[ emit sp ] cr
red-card take shuffle
black-card take shuffle
over size over size min random
say "Swapping " dup echo
Line 1,622:
{{out}}
 
<pre>B B R R R B RB R B B B R BR B R R RB RB B R B B R B R B R B
Swapping 2 cards.▼
The assertion is true.▼
 
R B R B R B B B B B R R B B B R BR R B R B B R R B R B B B B ▼
Swapping 4 cards.
The assertion is true.
 
R R B B R BR R B BR B B R B R R B R B R B B RB R B R R B R
Swapping 3 cards.
The assertion is true.
 
B RB B R R B R R R B R RB RB R B R B B R BR BR R BR R BR B B R
Swapping 48 cards.
The assertion is true.
 
R B BR B B B R BR R R R B R B B R R B B R B R R R R R B R
Swapping 115 cards.
The assertion is true.</pre>
 
▲R B B R B B B B B R R B B B R B R B R B B B R B B B
▲Swapping 2 cards.
▲The assertion is true.
</pre>
 
=={{header|R}}==
GordonCharlton
1,462

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/284968"