a = []
for i in range(10000):
a.append(i)
-------
Here are my results on a SCO ODT 4.0alpha system running on a i486DX/33
with NO external cache.. ONLY the internal cache on the i486 chip.
The system was idle during this test, but in full multi-user mode.
5.91s real 3.40s user 0.07s sys
not bad really...
> tst.tcl------------------
> set l ""
> for { set i 0 } { $i < 10000 } { incr i } {
> lvarpush l $i
> }
> -------------------------
>
> tst.perl-----------------
> for ($i = 0 ; $i < 10000 ; $i++) {
> unshift(@f, $i) ;
> }
> -------------------------
>
> {/home/mdimeo}% /bin/time /cad/bin/perl tst.perl
> 4.8 real 4.6 user 0.0 sys
> {/home/mdimeo}% /bin/time tcl tst.tcl
> ^CCommand terminated abnormally.
> 334.2 real 326.7 user 0.2 sys
-- Lance Ellinghaus lance@fox.com PGP 2.6 Key fingerprint = 94 A0 AA 66 2E 6D B1 DC 63 C6 FD F0 C1 66 1C 61 To get PGP 2.6 Public Key, send email to: pgp-key@fox.com