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