20 lines
430 B
Text
20 lines
430 B
Text
[ [] swap
|
|
times [ i^ join ] ] is deck ( n --> [ )
|
|
|
|
[ dup size 2 / split swap
|
|
witheach
|
|
[ swap i^ 2 * stuff ] ] is weave ( [ --> [ )
|
|
|
|
[ 0 swap
|
|
deck dup
|
|
[ rot 1+ unrot
|
|
weave 2dup = until ]
|
|
2drop ] is shuffles ( n --> n )
|
|
|
|
' [ 8 24 52 100 1020 1024 10000 ]
|
|
|
|
witheach
|
|
[ say "A deck of "
|
|
dup echo say " cards needs "
|
|
shuffles echo say " shuffles."
|
|
cr ]
|