Looks like Perl is faster in this case.
#!/usr/bin/perl
use warnings;
use strict;
use Benchmark;
#Outputs:
#Benchmark: timing 1000000 iterations of c-loop, perl-loop...
# c-loop: 5 wallclock secs ( 5.64 usr + 0.02 sys = 5.66 CPU)
@ 176678.45/s (n=1000000)
# perl-loop: 3 wallclock secs ( 3.58 usr + 0.01 sys = 3.59 CPU)
@ 278551.53/s (n=1000000)
timethese(1000000, {
'c-loop' => sub {
for (my $i = 0; $i <= 100; $i += 5) {
#print("$i ");
}
},
'perl-loop' => sub {
for (0..20){
# print 5 * $_." ";
}
},
});
