Perfect shuffle: Difference between revisions
Content added Content deleted
Not a robot (talk | contribs) (Add SETL) |
(Added Easylang) |
||
Line 877: | Line 877: | ||
1024 cards: 10 |
1024 cards: 10 |
||
10000 cards: 300</pre> |
10000 cards: 300</pre> |
||
=={{header|EasyLang}}== |
|||
{{trans|Phix}} |
|||
<syntaxhighlight> |
|||
proc pshuffle . deck[] . |
|||
mp = len deck[] / 2 |
|||
in[] = deck[] |
|||
for i = 1 to mp |
|||
deck[2 * i - 1] = in[i] |
|||
deck[2 * i] = in[i + mp] |
|||
. |
|||
. |
|||
proc test size . . |
|||
for i to size |
|||
deck0[] &= i |
|||
. |
|||
deck[] = deck0[] |
|||
repeat |
|||
pshuffle deck[] |
|||
cnt += 1 |
|||
until deck[] = deck0[] |
|||
. |
|||
print cnt |
|||
. |
|||
for size in [ 8 24 52 100 1020 1024 10000 ] |
|||
test size |
|||
. |
|||
</syntaxhighlight> |
|||
=={{header|EchoLisp}}== |
=={{header|EchoLisp}}== |