Posted to tcl by dkf at Mon Sep 20 22:27:15 GMT 2010view raw
- C:\Documents and Settings\Donal>tclsh85
- % info patch
- 8.5.2
- % package require ActiveTcl
- 8.5.2.0.284846
- % eval {set str1 [string repeat "*" 10000]
- set str2 ${str1}b
- append str1 a ;string length $str1}
- 10001
- % time {string equal $str1 $str2} 10000
- 16.0505 microseconds per iteration
- % time {string compare $str1 $str2} 10000
- 10.9383 microseconds per iteration
- % time {string equal $str1 $str2} 100000
- 15.98994 microseconds per iteration
- % time {string compare $str1 $str2} 100000
- 11.02129 microseconds per iteration
- % eval {set str1 [string repeat "*" 100000]
- set str2 ${str1}b
- append str1 a ;string length $str1}
- 100001
- % time {string equal $str1 $str2} 10000
- 181.5137 microseconds per iteration
- % time {string compare $str1 $str2} 10000
- 115.1879 microseconds per iteration