Perfect shuffle: Difference between revisions
→{{header|Raku}}: less verbose, faster
SqrtNegInf (talk | contribs) (→{{header|Raku}}: less verbose, faster) |
|||
Line 2,480:
=={{header|Raku}}==
(formerly Perl 6)
<lang perl6>for 8, 24, 52, 100, 1020, 1024, 10000 -> $size {▼
my ($n, @deck) = 1, |^$size;▼
$n++ until [<] @deck = flat [Z] @deck.rotor: @deck/2;
▲for 8, 24, 52, 100, 1020, 1024, 10000 -> $size {
▲ my @deck = ^$size;
printf "%5d cards: %4d\n", $size, $n;
}</lang>
| |||