|
Tcl 8, preliminary benchmarks
| Test |
# of loops |
Tcl |
MetaTalk |
Perl |
| Simple loop |
1000000 |
11 |
3 |
5 |
| Iterative factorial |
10000 |
21 |
8 |
7 |
| Iterative factorial with 'if' |
10000 |
25 |
13 |
10 |
| Recursive factorial |
10000 |
645 |
56 |
60 |
| String operations (stems) |
10 |
58 |
23 |
14 |
| File write and read |
2000 |
32 |
72 |
24 |
| Run Subprocess |
1000 |
39 |
63 |
70 |
The test machine was a 90 MHz Pentium with 64 MB RAM running Linux
1.2.13. Versions used were Tcl 8.0, MetaTalk 2.1.2, and Perl 5.002.
All times are in seconds. Script execution
times were taken using each language's built-in time functions, but
were verified using the UNIX time command. Times were averaged over
at least two runs.
Benchmark conclusion
Tcl 8 offers much better performance than Tcl 7.X for the simple loop
benchmarks, but still lags MetaTalk and Perl performance by a factor
of 2-3 in most cases. Little performance improvement over Tcl 7.X can
be seen in the function call test, however, and Tcl 8 lags MetaTalk by
over an order of magnitude in this test.
|
