func_slow.pl revision 1
1N/A print "Function C\n";
1N/A for (
my $i =
0; $i <
3000000; $i++) {
my $j = $i +
1; }
1N/A print "Function B\n";
1N/A for (
my $i =
0; $i <
2000000; $i++) {
my $j = $i +
1 ; }
1N/A print "Function A\n";
1N/A for (
my $i =
0; $i <
1000000; $i++) {
my $j = $i +
1; }