|
|
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 |