Mind boggling card trick: Difference between revisions

Content deleted Content added

Inline

@@ Line 1,603: / Line 1,603: @@
     discards take witheach
       [ emit sp ] cr
-    red-card take
+    red-card take shuffle
-    black-card take
+    black-card take shuffle
     over size over size min random
     say "Swapping " dup echo
@@ Line 1,622: / Line 1,622: @@
 {{out}}
-<pre>B B R R R B R R B B B R B B R R R R R B B R B R B R
+<pre>B R R R B B R B B B R R B R R B B B R B B R B R R B
+Swapping 2 cards.
+The assertion is true.
+B R B R B B B B R B B B R R R R B B R R B R B B B B
 Swapping 4 cards.
 The assertion is true.
-R R B B R B R B B B B R B R R B R B B B R R B R R R
+B B R R R B R B B R B R R B R B R B B B R B R R B R
 Swapping 3 cards.
 The assertion is true.
-B R R R B R R R B R R R R B R B R B B R B R B B B R
+B B B R R R R R B R B B R B R B B R R R R R R R B B
-Swapping 4 cards.
+Swapping 8 cards.
 The assertion is true.
-R B B B B B R B R R R B R B B R R B B R B R R R R B
+B R B B B R R R R R B R B B R R B B B R R R R R B R
-Swapping 11 cards.
+Swapping 5 cards.
-The assertion is true.
+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}}==