Posted to tcl by dbohdan at Tue Mar 01 17:34:46 GMT 2016view raw

  1. #!/usr/bin/env tclsh
  2. package require Tcl 8.6.4
  3.  
  4. proc noop {} {
  5. return
  6. }
  7.  
  8. ::oo::class create Nooper {
  9. method noop {} {
  10. return
  11. }
  12. }
  13.  
  14. proc main {} {
  15. set obj [Nooper new]
  16.  
  17. puts [time noop 1000000]
  18. puts [time {$obj noop} 1000000]
  19.  
  20. puts {}
  21.  
  22. puts [time {for {set i 0} {$i < 100000} {incr i} noop} 10]
  23. puts [time {for {set i 0} {$i < 100000} {incr i} {$obj noop}} 10]
  24.  
  25. $obj destroy
  26. }
  27.  
  28. main
  29.