On 2011-05-27 02:27, [email protected] wrote:
for (0 .. 60000) {
Be aware that this sets up a memory structure. Still 2 times faster than
looping:
$ time perl -wle '$i=0; 1 while $i++ < 1e4'
real 0m0.005s
$ time perl -wle '$i=0; 1 while $i++ < 1e5'
real 0m0.013s
$ time perl -wle '$i=0; 1 while $i++ < 1e6'
real 0m0.081s
$ time perl -wle '$i=0; 1 while $i++ < 1e7'
real 0m0.762s
$ time perl -wle '$i=0; 1 while $i++ < 1e8'
real 0m7.723s
$ time perl -wle '1 for 1..1e4'
real 0m0.005s
$ time perl -wle '1 for 1..1e5'
real 0m0.009s
$ time perl -wle '1 for 1..1e6'
real 0m0.047s
$ time perl -wle '1 for 1..1e7'
real 0m0.405s
$ time perl -wle '1 for 1..1e8'
real 0m3.997s
--
Ruud
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
