Tcl |
Back to the Win32 Shootout Back to dada's perl lab |
Tcl | |
---|---|
Tested Version | 8.4.2 |
Home Page | http://dev.scriptics.com/ |
Download | http://dev.scriptics.com/software/tcltk/downloadnow83.tml |
View All Source Code For Tcl |
(Ranks in Red in the
table below are those which fall below the average Rank for this language
over all tests. The corresponding programs could possibly benefit from further optimization.) |
||||||||
Test | Source Code | Avg Rank: 29 | Avg Rank: 23 | Avg Rank: 20 | Log | |||
---|---|---|---|---|---|---|---|---|
CPU | Rank | Mem | Rank | LOC | Rank | |||
Ackermann's Function | ackermann.tcl | F | (F) * | F | (F) * | 15 | 35 | log |
Array Access | ary3.tcl | 49.72 | 38 | 2936 | 32 | 16 | 20 | log |
Count Lines/Words/Chars | wc.tcl | 6.51 | 29 | 1580 | 20 | 19 | 20 | log |
Echo Client/Server | echo.tcl | F | (F) * | F | (F) * | 33 | 4 | log |
Exception Mechanisms | except.tcl | 5.78 | 23 | 1496 | 17 | 41 | 21 | log |
Fibonacci Numbers | fibo.tcl | 33.20 | 45 | 1560 | 28 | 10 | 23 | log |
Hash (Associative Array) Access | hash.tcl | 2.40 | 25 | 9880 | 22 | 15 | 16 | log |
Hashes, Part II | hash2.tcl | 15.55 | 30 | 4856 | 27 | 16 | 15 | log |
Heapsort | heapsort.tcl | 22.21 | 38 | 9896 | 37 | 61 | 34 | log |
Hello World | hello.tcl | 8.12 | 35 | 1496 | 28 | 1 | 4 | log |
List Operations | lists.tcl | 8.53 | 27 | 2276 | 15 | 50 | 21 | log |
Matrix Multiplication | matrix.tcl | 23.09 | 29 | 1596 | 20 | 46 | 30 | log |
Nested Loops | nestedloop.tcl | 16.22 | 36 | 1492 | 27 | 27 | 44 | log |
Random Number Generator | random.tcl | 3.94 | 33 | 1504 | 24 | 21 | 29 | log |
Regular Expression Matching | regexmatch.tcl | 58.00 | 14 | 1588 | 6 | 22 | 5 | log |
Reverse a File | reversefile.tcl | 2.96 | 24 | 14384 | 24 | 8 | 16 | log |
Sieve of Erathostenes | sieve.tcl | 147.84 | 44 | 2076 | 30 | 24 | 30 | log |
Spell Checker | spellcheck.tcl | 9.11 | 26 | 6876 | 23 | 14 | 17 | log |
Statistical Moments | moments.tcl | 1.65 | 18 | 6852 | 21 | 46 | 10 | log |
String Concatenation | strcat.tcl | 0.10 | 13 | 1760 | 21 | 8 | 14 | log |
Sum a Column of Integers | sumcol.tcl | 18.90 | 37 | 1476 | 20 | 8 | 20 | log |
Word Frequency Count | wordfreq.tcl | 16.74 | 23 | 2624 | 18 | 20 | 7 | log |
*Test Implemented but not measured (timeout or error). | ||||||||
Tests Not Implemented For This Language: Method Calls, Object Instantiation, Producer/Consumer Threads |
Back to the Win32 Shootout Back to dada's perl lab |
Send comments or suggestions to dada@perl.it |