(Data generator) |
(No newlines.) |
||
Line 33: | Line 33: | ||
my @shuffled = &shuffle(@list); |
my @shuffled = &shuffle(@list); |
||
⚫ | |||
my $idx = 0; |
|||
foreach ( @shuffled ) |
foreach ( @shuffled ); |
||
{ |
|||
if((++$idx % 10) != 0) |
|||
{ |
|||
⚫ | |||
} |
|||
else |
|||
{ |
|||
print "$_\n"; |
|||
} |
|||
} |
|||
</lang> |
</lang> |