这是我的Perl代码
$big=10_000_000;
#A:big loop outside
my $begin_time = time;
foreach my $i (1..$big) {
foreach my $p (1..10){
}
}
my $end_time = time;
my $t1=$end_time-$begin_time;
#B:small loop outside
my $begin_time = time;
foreach my $i (1..10){
foreach my $p (1..$big){
}
}
my $end_time = time;
my $t2=$end_time-$begin_time;
#output
print $t1;
print "\n";
print $t2;
t1=8 seconds
t2=3 seconds
和mathematica代码：
Timing[Do[2,{i,1,10},{j,2*1,10^7}]]
output:{14.328,Null}
Timing[Do[2,2*10^7},10}]]
output:{30.937,Null}
为什么外面的大循环需要更多时间？
解决方法
执行内部循环时会产生一定的开销(初始化变量;检查是否应该结束),在第一种情况下,您将丢失10,000,000次这样的开销;在第二个,你只做了10次.
编辑：
设s是设置循环的时间(例如初始化变量),是迭代循环的时间(例如测试结束条件).然后：
大内环
T = s1 + 10 * ( i1 + s2 + 10,000*i2 ) = s1 + 10*i1 + 10*s2 + 100,000*i2
大外圈
T = s1 + 10,000 * ( i1 + s2 + 10*i2 ) = s1 + 10,000*i1 + 10,000*s2 + 100,000*i2
区别
diff = 9,999,990*i1 + 9,990*s2
因此,外部循环的迭代时间(i1)和内部循环的设置时间(s2)对于大的外部循环和大的内部循环都执行了9,990次.