Jump to content

Perfect shuffle: Difference between revisions

→‎{{header|Quackery}}: simplified shuffles
(→‎{{header|Quackery}}: simplified peace again)
(→‎{{header|Quackery}}: simplified shuffles)
Line 1,894:
[ swap i^ 2 * stuff ] ] is weave ( [ --> [ )
 
[ deck0 dupswap
0deck tempdup put
[ 1rot temp1+ tallyunrot
weave 2dup = until ]
temp take2drop ] is shuffles ( n --> n )
2drop
temp take ] is shuffles ( n --> n )
 
' [ 8 24 52 100 1020 1024 10000 ]
1,462

edits

Cookies help us deliver our services. By using our services, you agree to our use of cookies.