1-10, 500 reps = 1 secs ( 1.09 usr 0.00 sys = 1.09 cpu)
1-35, 10 reps = 17 secs (17.67 usr 0.02 sys = 17.69 cpu)
#!/usr/local/bin/perl
use Benchmark;
$t0 = new Benchmark;
for (my $x = 0; $x < 500; $x++) {
my $numb = 1;
for (my $x = 0; $x < 10; $x++) {
my @numb = split(//, $numb);
my $count = 1;
my $newnumb = "";
for(my $x = 1; $x <= length($numb); $x++) {
if ($numb[$x-1] ne $numb[$x]) {
$newnumb .= "$count$numb[$x-1]";
$count = 1;
}
else { $count++; }
}
$numb = $newnumb;
}
}
$t1 = new Benchmark;
$td = timediff($t1,$t0);
print timestr($td), "\n";