Perfect shuffle: Difference between revisions

Content added Content deleted
(→‎{{header|Quackery}}: simplified peace again)
(→‎{{header|Quackery}}: simplified shuffles)
Line 1,894: Line 1,894:
[ swap i^ 2 * stuff ] ] is weave ( [ --> [ )
[ swap i^ 2 * stuff ] ] is weave ( [ --> [ )


[ deck dup
[ 0 swap
0 temp put
deck dup
[ 1 temp tally
[ rot 1+ unrot
weave 2dup = until ]
weave 2dup = until ]
⚫
2drop ] is shuffles ( n --> n )
2drop
⚫
temp take ] is shuffles ( n --> n )


' [ 8 24 52 100 1020 1024 10000 ]
' [ 8 24 52 100 1020 1024 10000 ]
Retrieved from "https://rosettacode.org/wiki/Perfect_shuffle"