Rosetta Code

Perfect shuffle: Difference between revisions

Page Discussion

Perfect shuffle (view source)

Revision as of 06:35, 2 June 2021

108 bytes removed ,  2 years ago
→‎{{header|Quackery}}: simplified weave
(Add APL)
(→‎{{header|Quackery}}: simplified weave)
Line 1,890:
times [ i^ join ] ] is deck ( n --> [ )
 
[ []dup swapsize 2 / split
witheach
dup size 2 / split
dup size times[ swap
2drop ] i^ 2 * 1+ stuff ] ] is weave ( [ --> [ )▼
[ behead
dip [ swap behead ]
2 pack
dip rot join
unrot swap ]
▲ 2drop ] is weave ( [ --> [ )
 
[ deck dup
GordonCharlton
1,462

edits

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