Perfect shuffle: Difference between revisions
→{{header|Quackery}}: simplified peace again
(→{{header|Quackery}}: simplified weave) |
(→{{header|Quackery}}: simplified peace again) |
||
Line 1,888:
<lang Quackery> [ [] swap
times [ i^ join ] ] is deck ( n --> [ )
[ dup size 2 / split swap
witheach
[ swap i^ 2 * stuff ] ] is weave ( [ --> [ )
[ deck dup
Line 1,900 ⟶ 1,899:
weave 2dup = until ]
2drop
temp take ] is shuffles ( n --> n )
' [ 8 24 52 100 1020 1024 10000 ]
| |||