Posted to tcl by colin at Mon Nov 01 00:37:21 GMT 2010view raw
- foreach n {1 10 100 1000 10000 20000 30000 50000} {
- puts "$n: [time {after 10000 {}} $n]"
- }
- set forever 0
- vwait forever
- 1: 42 microseconds per iteration
- 10: 9.6 microseconds per iteration
- 100: 9.48 microseconds per iteration
- 1000: 14.721 microseconds per iteration
- 10000: 58.514 microseconds per iteration
- 20000: 256.32745 microseconds per iteration
- 30000: 930.5768333333333 microseconds per iteration