Posted to tcl by colin at Mon Nov 01 00:37:21 GMT 2010view raw

  1. foreach n {1 10 100 1000 10000 20000 30000 50000} {
  2. puts "$n: [time {after 10000 {}} $n]"
  3. }
  4. set forever 0
  5. vwait forever
  6.  
  7. 1: 42 microseconds per iteration
  8.  
  9. 10: 9.6 microseconds per iteration
  10.  
  11. 100: 9.48 microseconds per iteration
  12.  
  13. 1000: 14.721 microseconds per iteration
  14.  
  15. 10000: 58.514 microseconds per iteration
  16.  
  17. 20000: 256.32745 microseconds per iteration
  18.  
  19. 30000: 930.5768333333333 microseconds per iteration