Stem-and-leaf plot/Data generator: Difference between revisions

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