Perfect shuffle: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,890: / Line 1,890: @@
     times [ i^ join ] ]      is deck     ( n --> [ )
-  [ [] swap
+  [ dup size 2 / split
+    witheach
-    dup size 2 / split
-    dup size times
+      [ swap
+        i^ 2 * 1+ stuff ] ]  is weave    ( [ --> [ )
-      [ behead
-        dip [ swap behead ]
-pack
-        dip rot join
-        unrot swap ]
-drop ]                  is weave    ( [ --> [ )
   [ deck dup